Usage: Fcntl::constant(name, arg) at Fcntl.pm line 225.

##</code><code>##

#! /usr/local/bin/perl

chomp($hostname=`hostname`);
chomp($date = `date \'\+\%y\%m\%d\%H\%M\%S\'`);

use warnings;
use strict;
use Fcntl ':flock';
use Tie::File;


my $fifo           = "$ENV{HOME}/a_file";
my $lock           = "$fifo.lock";

tie( my @pid, 'Tie::File', $lock )->flock( LOCK_EX )
    or die "Cannot open '$lock' $!";

@pid = $$;

tie( my @lines, 'Tie::File', $fifo )->flock( LOCK_EX )
    or die "Cannot open '$fifo' $!";

( my $pop, @lines ) = sort @lines;

print "$hostname is poping $pop\n";

untie @lines;

print "PID lock file is going to be removed\n";

untie @pid;
unlink $lock or die "Cannot unlink '$lock' $!";

__END__