open( my $out_fh, q{>}, $outfile ) || die qq{problem writing to '$outfile': $!}; # OK
open( my $out_fh, q{>}, $outfile ) or die qq{problem writing to '$outfile': $!}; # Better
open my $out_fh, q{>}, $outfile or die qq{problem writing to '$outfile': $!};    # Best