use IO::File;
my $fh = IO::File->new('foo', 'r');
# do something with $fh
undef $fh;

##</code><code>##

# continuing from above
$fh->close;

##</code><code>##

# The output is something like IO::File=GLOB(yadda yadda)
print "$fh" if defined $fh;

##</code><code>##

my @lines = IO::File->new('foo')->getlines;