use strict;
use CGI qw(:header);
use CGI::Carp qw(fatalsToBrowser);
use File::Find;
use File::Basename;

my $start = 3;
my $end   = 40;
my $dir   = 'files';
@ARGV     = ();

die "start must be less than end" if $start >= $end;
die "no dir $dir here" unless -d $dir;

find sub { 
   my $numb = (fileparse($_,'.txt'))[0];
   return unless $numb =~ /^\d+$/;
   push @ARGV, $File::Find::name if $numb >= $start and $numb <= $end;
}, $dir;

die "no .txt files found in $dir" unless @ARGV;

print header;
print while <>;
[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Don't forget to add -T (taint mode) and 'scrub' these arguments before using them. That I leave as an excercise.

Lesson 4, Part 2 of Ovid's CGI course has a bit on this for the interested.

It is not homework, but thanks for your help. The text files are log files and users will have the choice to pick the usage between dates raging like the example. It will be from a form and the files will be listed on two select menus with all the file names.

Assuming the files aren't delimited records and you just want to print them out line by line. You first open the directory, grab all the text files into an array.

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

Then print your header, loop over the array, open the text files, and print their results to the browser.

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

foreach my $file (@files) {
    open FILE, $file or die "Can't open file: $!";
    while (<FILE>) {
        print $_;
    }
}
[download]

That's a very basic way to do it. You'll probably also want to add in some formatting (exercise left to the reader :).

Update: Oops, I missed part of the question. You'll have to prompt for input, or accept the range of the text files first (do you want to do this via a form or the command line?). Then select only those files in the number range submitted.

Update 2: ++ to Screamer for pointing out the error below. I updated the example accordingly.

Careful. That should be grep { /\.txt\z/ } readdir DIR; ____________
Makeshifts last the longest.