Select Code to Download

#!/usr/bin/perl

...
while ( <> ) {
    ...
}

ls *.txt | my_script.pl

my_script.pl text.txt

#!/usr/bin/perl

...
        push @files, $_;
    }
}