#!/afs/athena/contrib/perl/p -n

split;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);
print("$hour:$min:$sec, $mon-$mday, $year\n");