#!/usr/local/bin/perl
use strict;
use warnings;

use CGI qw/:standard/;
use CGI::Carp qw/fatalsToBrowser/;


##</code><code>##

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

open(FILE, "$wrestlerdir/wrestlerlist.txt");
    my @lines = <FILE>;
    chomp (@lines = <FILE>);

close(FILE);

##</code><code>##

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

##</code><code>##

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