#!/usr/bin/perl

@dow=("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday");
@nom=("January","February","March","April","May","June","July","August","September","October","November","December");

if ($ARGV[0]) { $time=$ARGV[0] }
         else { $time=time();  }

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time);
print "Rick, $time translates to $dow[$wday], $nom[$mon] $mday, ", 1900+$year, " ", ($hour<10?"0":""),"$hour:",($min<10?"0":""),"$min:",($sec<10?"0":""),"$sec\n";