print "mode=".$mode."\n";
printf "printf are %04o\n", $mode;
printf "Permissions are %04o\n", $mode & 07777;

..produces

mode=33188
printf are 100644
Permissions are 0644