I'm not completely sure I understand you. The output of both versions, jeffas and mine, is eight lines, and the line you don't seem to want is not included in either (both versions output eight lines, your sample output had nine lines. As far as I understand you, you want eight lines of output. Both versions should be easily reusable within any script, if you replace the print statements with some other statement collecting the strings into an array.

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web
[download]