$ perl -E'say `/bin/sh -c umask` // ( $! != -1 ? $! : sprintf("\$?=%04x", $?) );'
0077