# FD #16 is the listening socket on my Apache
# You can use lsof on an Apache child to find yours.
open(LISTEN,"+<&=16")
  or die "Couldn't open LISTEN socket: $!\n";
while(1)
{
  accept(ACCEPT,LISTEN)
    or next;
  print ACCEPT  <<EOF;
HTTP/1.0 200 OK
Content-Type: text/html
Content-Length: 10
 
Snarfed!
EOF
;
}