Yes thanks for this I did find it and it looks really promising but it dont work! I am using (excuse the mess I am trying to tweek it).
use File::stat;
my $file = "c:\\this.doc";
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blks)= stat($file);
($sec...