Help for this page

Select Code to Download


  1. or download this
    open my($fh), '>', '/f/o/o' or die "Can't clobber /f/o/o : $!";
print $fh "stuff\n";
...
  2. or download this
    use autodie;
open my($fh), '>' '/f/o/o';
print $fh "stuff\n";
...