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

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

open(FILE, "$wrestlerdir/wrestlerlist.txt");
	my @lines = <FILE>;
	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;