Select Code to Download

#!/usr/bin/perl -w

...

# call LOCK_EX
$_ = LOCK_EX;

use Fcntl qw(LOCK_EX);

...

# call LOCK_EX
$_ = LOCK_EX;