#!/usr/bin/perl -w
use strict;

open (IN, "asdf"); #this fails but return code ignored

print while (<IN>); #readline() on closed filehandle 
                    #IN at C:\TEMP\ioerror.pl line 6.