#!/usr/local/bin/perl

use strict;
use Time::localtime;
sub main::strftime {
return ctime();
}

return 1;