I'm not really sure where to go from here. I've tried the code on 6 separate linux servers, 2 BSD servers, and 2 Windows 2000 workstations. All have the same output.
It may be a system-level thing on the computer you are working with (maybe the TFTP Daemon is still listening)
What OS are you attempting to run this under? Perhaps there is some debugging you can do there?
----------------------------------------------------------
#!/usr/bin/perl
@==qw/p e r l m o n k s/;$|*=1;@;=qw/8 15 7 9 -1 7 7 2 0/;
foreach$-(@=){for(++$|..$;[$:++]){$-++}$..=$-}$.=~s/m/l/g;
$*=$;[4]+1;for($;[9]..$;[0]/2){$,.=substr($.,$*++,1);$*++;
}print$,;#http://www.perlmonks.org/index.pl?node_id=98506;