#! perl
use Modern::Perl;

for my $file ('465_SoPW.pl', 'Non-Existent.txt')
{
    if (my @stats = stat $file)
    {
        say "File '$file' last modified: ", $stats[9];
    }
    else
    {
        say "stat failed for file '$file': $!";
    }
}