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