Select Code to Download

while (@array)

#!/usr/bin/perl -w
use strict;
...
splice @all, -1, 0, "\tMy new data\n";
print $config @all;
close $config;

#!/usr/bin/perl -w
use strict;
...
    print;
}
close $config;