#!/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";