in reply to Global symbol warnings under strict

Watch the terminators of your HERE documents. I see:

    print <<END_OF_BLOCK;

    <HTML>

<HEAD>
<META HTTP-EQUIV="Refresh" CONTENT="15; URL=/ds-cgi/viewActive.pl">
<TITLE>STUMPED!</TITLE>
</HEAD>

<BODY>

<H1>Your IP was not found in the active servers list!</H1>

END_OF_BLOCK;
#-----------^

[download]

perl -pe '"I lo*`+$^X$\"$]!$/"=~m%(.*)%s;$_=$1;y^`+*^e v^#$&V"+@( NO CARRIER'

In Section Seekers of Perl Wisdom