Select Code to Download

# if your file extension is not .txt change it to whatever is approria
+te
while (my $filename=<*.txt>){
...
    print "$filename has a polyA tail sequence\n";
  }
}