perl -e 'print BADHANDLE "Hello world.\n" or die $!'