Globjects

 package IO::Remembers; 
 sub new {
 my ($pack, $filename) = @_;
 my $fh = \do { local *FH }; # Incantation
 open $fh, $filename or return; 
 bless $fh => $pack;
 }

• People can use this object just like a filehandle:

 my $fh = new IO::Remembers ('input');
 my $line = <$fh>;
 read $fh, $bytes, 1024;
 print $fh "Actually this filehandle was opened for reading only...\n";
 close $fh;

• It closes automatically when it is destroyed.