#! /usr/bin/env perl
#
# This script is a useful test script.  It emulates a web server
# that will accept a browser connection, but will not service that 
# request.

print " hello world\n";

$AF_INET=2;
$SOCK_STREAM = 1;

socket (liz, $AF_INET, $SOCK_STREAM, $proto) || die "sockky $!";

printf "done sock \n";

$me = pack("S n a4 x8", $AF_INET, 5656, "\0\0\0\0");

bind (liz, $me) || die "bindy $!";
printf "done bind \n";

listen (liz, 5) || die "lizzy $!";
printf "done listen \n";

accept (aky, liz) || die "acky $|";
printf "done acc \n";

sleep 100;

