Select Code to Download

while (my $line=<DATA>) {
    chomp($line);..

#file: test.pl
#!/usr/bin/perl -w
...
test1a.txt
test1b.txt
test1c.txt