open my $fh, '<', $filename or die qq{Cannot open "$filename": $!};
open my $fh, '>', $filename or die qq{Cannot open "$filename": $!};
open my $fh, '>>', $filename or die qq{Cannot open "$filename": $!};