my $perms = sprintf("%04o", $mode & 07777);

# ...

print "\# ORIG PERM = $filename\t$uid\t$gid\t$perms\t$mdate";