$ perl -e 'print "BANG: $!"'
BANG:

$ perl -Mstrict -e 'print "BANG: $!"'
BANG: Bad file descriptor