Select Code to Download

my @docs = <*.doc>;
for my $file (@docs) {
...
   while {<$fh>} ( # process your file here )
   close $fh;
}