my @month_name = qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec);

my ( $day, $month, $year ) = (localtime)[ 3, 4, 5 ];
$year = $year + 1900;

print join " ", $day, $month_name[$month], $year;