Select Code to Download

chomp(my @data = <DATA>);
while (my $confLine = <$in>) {
...
    }
    print {$out} $confLine;
}

my $data_start = tell DATA;
while (my $confLine = <$in>) {
...
    print {$out} $confLine;
}