use File::Edit::Portable;
 
my $rw = File::Edit::Portable->new;

my $fh = $rw->read('file.txt');