use strict;
use warnings;
use 5.010;
use File::Spec;

my $dirname = '.';

opendir( my $dir, $dirname ) or die $!;
my $file;
while ( $file = readdir($dir) ) {
    last if ( stat( File::Spec->catfile( $dirname, $file ) ) )[9] + 60 > time;
    $file = '';
}

say $file;