c:\@Work\Perl\monks>perl -wMstrict -le "print 0+$!, qq{ == '$!'}; " 9 == 'Bad file descriptor'