$ perl -E'say `umask` // ( $! != -1 ? $! : sprintf("\$?=%04x", $?) );'
No such file or directory

##</code><code>##

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

##</code><code>##

$ perl -E'my $umask = umask; say defined($umask) ? sprintf("%04o", $umask) : $!;'
0077