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;
}