[09:05:55 jhorner@gateway scripts]$ more 20000601-1.pl 
#!/usr/bin/perl
$_="0123456789";$_=$^X.' '.lc((split/\s/,(scalar
(localtime(substr$_,3,6))))[0]).pack("C*",(eval(
length$_).substr($_,7,1)),(join'',(split"",$_)[1
,1,5]));print"\u$_\n";
[09:06:05 jhorner@gateway scripts]$ ./20000601-1.pl 
Perl sunks