Select Code to Download

perl -e 'use Fcntl qw(:mode);$permissions=S_IMODE((stat("filename"))[2
+]);print $permissions,"\n";'