Select Code to Download

use strict;
use warnings;
...
    close $OUTFILE;
}

$ perl 1perl.pl 
in parent...
$ cat data1.txt
$

$ perl 1perl.pl 
in parent...
...
9
10
$