I used the following code but there is a problem with the flock package -

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

The Fcntl module that I am using does not have any "usage" messages in it however the Tie::File module does. Which version of the Tie::File module are you using? You can find out like this:

$ perl -MTie::File -le'print $Tie::File::VERSION'
0.97
[download]

If the Fcntl module does not work you could go back to using:

my $LOCK_EX = 2;
[download]

And change all occurances of LOCK_EX to $LOCK_EX.

Also, to get the hostname you could use the Sys::Hostname module:

use Sys::Hostname;

my $hostname = hostname;
[download]

And to get a formatted date you could use the POSIX module:

use POSIX 'strftime';

my $date = strftime '%y%m%d%H%M%S', localtime;
[download]