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