$perm = new Win32::Perms($path)|| die "$!";
...
$perm = undef;