use Win32::Perms;
my $file = new Win32::Perms($ARGV[0]);
print $file->Owner;