($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5];
$year += 1900;

$date = (qw(January February March April May June July August
September October November December))[$mon] . " $mday, $year";

print $date;
[download]