#!/usr/bin/perl $ext = '300'; $l = 'ncaalog300'; if (-e "football/hoopla/$l") { $count = 1; open (LOG, "football/hoopla/$l") or die "Can't open file:$!\n"; while ($line = ) { chop $line; ($first[$count], $last[$count], $bet[$count]) = split /\t/, $line; $count += 1; } } for $x (1..$#first) { $handle[$x] = join '',$first[$x],$last[$x],$ext,$bet[$x]; $handle[$x] =~ tr/A-Z/a-z/; } for $x (1..$#bet) { if ($bet[$x] eq 'one') { $wage[$x] = '$'; } else {$wage[$x] = ''} } print "Content-type: text/html\n\n"; print <<"HTML code"; HooPLA 2003 Competition

HooPLA 2003 Competition

Click on any name to view that person's bracket.

HTML code for $x (1..$#handle) { print <<"HTML code";
$first[$x] $last[$x]$wage[$x] HTML code } print "
\n"; print "\n";