Select Code to Download

 
#!/usr/bin/perl
use v5.14;
...
    say "Good idea" if (stat($dir.$file));
    die "Bad idea" if (not defined stat($file));
}

 
#!/usr/bin/perl
use v5.14;
...
    $year += 1900;
    say "File: $file, Mtime: $mday/$mon/$year";
}