use strict;
use File::Temp 'tempfile';
my $fh = tempfile(UNLINK=>1);
select($fh);

print "foo" or warn "print 1 fail";
close $fh;
print "bar" or warn "print 2 fail";

__END__
print 2 fail at - line 8.