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