use strict;
use warnings;
use File::stat;
use Time::localtime;

my $file = ???;
printf "%s: %s\n", $file, ctime(stat($file)->mtime);