Help for this page

Select Code to Download

Select or download this

unless (-e $file) {
  open FILE, "> $file";
  # ...
}

Select or download this

use POSIX qw( O_EXCL O_CREAT );

$perm = 0644;  # or whatever
sysopen FILE, $file, O_EXCL | O_CREAT, $perm or die "can't create $fil
+e: $!";