function getAd {
  my ($filename) = @_;
  my $result = "<!-- No HTML ad -->; # the HTML

  use FindBin;
  $filename = $FindBin::Bin . "/" . $filename;

  if ( -f $filename )  {
    { 
      local $/;
      open F, "< $filename" or die "Couldn't open '$filename' : $!";
      $result = <F>;
      close F;
  };  
  return $result;
};

##</code><code>##

function getAd {
  return <<'END_OF_AD'
<a href="http://www.bar.com/gotcha"><img src="http://www.bar.com/foo.gif" alt="Foo">
</a>
END_OF_AD
};

##</code><code>##

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