% umask 777 % perl -le 'open my $fh, ">foo" or die "open:$!"; print $fh "hello" or die "print:$!"; close $fh or die "close:$!"'