Help for this page

Select Code to Download

Select or download this

BEGIN {
    $|++;
...
        or die "This script is probably already running,".
                   " can't obtain a lock on '$0' : $!";
}