Help for this page

Select Code to Download

Select or download this

open FH, ">$WriteDirectory/$file" || die "Can't open $file: $!";

Select or download this

freebie:~ 601> perl -MO=Deparse,-p
open FH, ">$WriteDirectory/$file" || die "Can't open $file: $!";
open(FH, (">$WriteDirectory/$file" || die("Can't open $file: $!")));