my $result = sysopen my $handle, "abc", O_WRONLY | O_CREAT;
close $handle;
eval {$result = flock $handle, LOCK_EX | LOCK_NB};
if ($@)
{
  print "------$@------";
}