Select Code to Download

my $result = sysopen my $handle, "abc", O_WRONLY | O_CREAT;
close $handle;
...
{
  print "------$@------";
}

flock() on closed filehandle $handle at ...line ...