Help for this page
#!/usr/local/bin/perl -w use strict; ... open(FILE, "<$file") or die "Can't open $file for reading in child +: $!"; flock(FILE, LOCK_EX|LOCK_NB) or die "Can't flock $file in child: $ +!"; }