Help for this page

Select Code to Download


  1. or download this
    open FH, ">$WriteDirectory/$file" || die "Can't open $file: $!";
    
  2. 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: $!")));