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

##</code><code>##

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

##</code><code>##

my $LOCK_EX = 2;

##</code><code>##

use Sys::Hostname;

my $hostname = hostname;

##</code><code>##

use POSIX 'strftime';

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