{
   use IO::File;
   my $f = IO::File->new($file);
   # no need to close
}