Select Code to Download

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

#! /usr/local/bin/perl

...
unlink $lock or die "Cannot unlink '$lock' $!";

__END__