Why not just use the stat command?

my $filename = "Test.txt";
print "$filename was last modified on: ", scalar localtime((stat($file
+name))[9]), "\n";
[download]

-- Dan