use File::stat;
use User::pwent;
my $file = 'C:\dev\test.txt';

$stat = stat( $file );  
print "User id = " . $stat->uid . "\n";
print "Time = " . $stat->mtime . "\n";

use Win32::OLE;
  my $objShell = Win32::OLE->CreateObject("Shell.Application");
  my $objFolder=$objShell->Namespace("c:\\dev") or die "$!" ;
  my $a = $objFolder->ParseName("test.txt")  or die "$!" ;
  print $objFolder->GetDetailsOf($a, 8) or die "$!" ;