Help for this page

Select Code to Download


  1. or download this
    my $fh = IO::File->new($file, O_WRONLY|O_CREAT|O_EXCL,0644);
die "Can't create $file: $!\n" unless defined $fh;
return $fh;
  2. or download this
    return IO::File->new($file, O_WRONLY|O_CREAT|O_EXCL,0644)
        or die "Can't create $file: $!\n";