$ perl -w -e'open MAIL, ">", "/dev/null"; close MAIL or warn 1, $!; close MAIL or warn 2, $!'
2Bad file descriptor at -e line 1.
$