You need to be careful with certain OS specific functions, this does not only apply for Perl. I advised using Super Search or google, you'd have arrived at potential solutions earlier:

• Win32::FileSecurity
• getpwuid / Getting the file owner on Win32
• Win32::Perms for ActivePerl 5.12/5.10 x64
• and many more