Select Code to Download

use warnings;
use strict;

chomp($pid  = $$);

$LOCK_EXCLUSIVE = 2;
$UNLOCK         = 8;

use Fcntl ':flock';

$fifo             = "ENV{HOME}/a_file";

$fifo             = "$ENV{HOME}/a_file";

close(FILE) || warn "update queue file exited $?\n";

close(LOCK) || warn "lock file exited $?\n";;
$str=`cat $fifo.lock`;

flock LOCK, $UNLOCK;

system("rm $fifo.lock");

#!/usr/local/bin/perl
use warnings;
...
__END__