# read
open my $fh, '<', 'file.ext' or die $!;

# write
open my $wfh, '>', 'file.ext' or die $!;