Select Code to Download

opendir DIR, "./" or die "Can't open: $!";
    my @files = grep { /\.txt\z/ } readdir DIR;
closedir DIR;

print "Content-type: text/html\n\n";

...
        print $_;
    }
}