Help for this page
#!/usr/bin/perl -w ... $mode = (stat($file))[2]; printf "Permissions are %04o\n", $mode & 07777;
Permissions are 0744