#!/usr/bin/perl
use v5.14;
use File::stat;

my $dir = '/tmp/';
opendir(DIR, $dir) or die $!;

while (my $file = readdir(DIR)) {
    next if ($file =~ m/^\./);
    say "Good idea" if (stat($dir.$file));
    die "Bad idea" if (not defined stat($file));
}

##</code><code>##

 
#!/usr/bin/perl
use v5.14;
use File::stat;

my $dir = '/tmp/';
opendir(DIR, $dir) or die $!;

while (my $file = readdir(DIR)) {
    next if ($file =~ m/^\./);
    my $mtime = (stat $dir.$file)->[9];
    my($sec,$min,$hour,$mday,$mon,$year) = localtime($mtime);
    $year += 1900;
    say "File: $file, Mtime: $mday/$mon/$year";
}