See what I have done. This works for me. Also, I didn't have to declare File::stat, why do you need to declare it?

Maybe your file is not properly defined?

#!/usr/bin/perl

use strict;

my $filename = q{c:\test.txt};

my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,
  $size,$atime,$mtime,$ctime,$blksize,$blocks) = stat($filename) 
    or die "Can't stat file $filename\n";

print "$filename at $mtime\n";
print "$filename at " . (stat($filename))[9] . "\n\n";
[download]