#!/usr/local/bin/perl
$secs = time();
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($secs);
$dname = (qw{Sun Mon Tue Wed Thu Fri Sat})[$wday];
$mname = (qw{Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec})[$mon];
$mon = $mon + 1;
print "$wday $dname $mname $mday/$mon/$year $hour:$min\n";

