#!/local/perl/bin/perl -w

use HTTP::Daemon ();

my $s = new HTTP::Daemon;
die "Can't create daemon: $!" unless $s;

print $s->url, "\n";

my $c = $s->accept;
die "Can't accept" unless $c;

$c->timeout(60);
my $req = $c->get_request;

die "No request" unless $req;

my $abs = $req->uri->abs;

print $req->as_string;

$c->send_file_response("/etc");

#$c->send_redirect("http://www.sn.no/aas", 301, "<title>Piss off</title>");

#my $res = HTTP::Response->new(400, undef,
#			      HTTP::Headers->new(Foo => 'bar'),
#			      "Gisle\n"
#			     );
#$c->send_response($res);