Help for this page

Select Code to Download


  1. 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