Select Code to Download

#!/usr/local/bin/perl
use strict;
...
use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;

my $wrestlerdir = '/home/ewexpert/public_html/rosterrank';

...
    chomp (@lines = <FILE>);

close(FILE);

foreach my $test (@lines) {
open my $fh, "<", "$wrestlerdir/$test.total" or die "Can't open @lines
+.total $!";
my @total = <$fh>;
}

print header, start_html('Rankings: '), (@lines), end_html;