Select Code to Download

my $table
open (INFILE, "<sites.txt");
...
}
close (INFILE);
print "<table>$table</table>";

my $name = 'Ben Kittrell';
$name=~s/^(.+)\s(.).+$/\L$1$2/g;
my $nick = 'tha' . $name . 'sta';