Help for this page
use FindBin qw($Bin $Script);
use Fcntl ':flock';
open my $fh, '>>', "$Bin/$Script" or die "open(>>$Bin/$Script): $!";
flock $fh, LOCK_EX|LOCK_NB or die "Another copy seems to be running";
15 years from now, by which time it will be a completely different language
It's just a number, so who cares?
Results (124 votes). Check out past polls.