Select Code to Download

use strict;
use Fcntl qw(:DEFAULT);
...
    print "Sorry, I am busy!";
  exit;
}

C:\>type flock.pl

...
flock() unimplemented on this platform at flock.pl line 6.

C:\>