I suggest the following....
I just showed the year as a reminder to add 1900 if you need that. Anyway once you have epoch time, atime or mtime conversion is the same to the type of string you want. DayofWeek would be similar to @Month_text...

#!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,$mi
+nutes,"\n";

__END__
prints:
Mar 10 2009 2:58
[download]