use Modern::Perl;
use File::stat;

opendir( DIR, 'c:/data' ) or die('Cannot open directory');
my @files = readdir(DIR);
closedir DIR;

foreach my $file (@files) {
    my $full_name = 'c:/data/' . $file;
    my $st        = stat($full_name);
    my $mod       = $st->mtime;
    say "Filename $full_name has the mod date of $mod";
}