use IO::File;

$fh = IO::File->new($filename, "r+")
     or die "Couldn't open $filename for read & write: $!\n";