Select Code to Download

open(IN, "< $input");
open(OUT, "> $output");
...

close(IN);
close(OUT);

my $flock = 1

...
close (FILE1);
if ($flock == 1) { flock (FILE2, 8); } #this is in fact not needed, th
+anx to crazyinsomniac for pointing out the insignificance ... read "f
+ile locking" for more information
close (FILE2);