Quick function to get the permissions of a file with Perl.

sub get_file_perm {
    my $file = shift();

    # Permissions are the second element of stat
    my $mode = (stat($file))[2];
    my $perm = sprintf("%04o",$mode & 07777);

    return $perm;
}