Re^3: Can I include O_CREAT, O_EXCEL and O_WRONLY in my script without always requiring Fcntl?

you can also eliminate the eval/use statement replacing it by a require one and then call the constant subs prefixed with the package name:

sub openit
{
  require Fcntl;
  my $fp = "c:\\temp\\test.csv.lck.tmp";
  die "Unable to open $fp" if !sysopen (my $fh, $fp, Fcntl::O_WRONLY()
+ | Fcntl::O_CREAT() | Fcntl::O_EXCL());
  close $fh;
  unlink $fp;
  return $fp;
}
[download]

Comment on Re^3: Can I include O_CREAT, O_EXCEL and O_WRONLY in my script without always requiring Fcntl? Download Code