Select Code to Download

#!/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: $
+!";
}