#!usr/bin/perl -w
use strict;

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

my $source_path = "./testfile";

(my $m_time) = (stat($source_path))[9];
my ($i_month, $day, $year, $hour, $minutes) = (localtime($m_time))[4,3,5,2,1];
$year += 1900;
    
printf "%s %2d %4d %d:%d\n",$Month_text[$i_month],$day,$year,$hour,$minutes,"\n";

__END__
prints:
Mar 10 2009 2:58