01 #!/usr/bin/env perl
02 use AnyEvent::HTTPD;
03 use Getopt::Std;
04 
05 getopts "p:", \my %opts;
06 
07 my $httpd = AnyEvent::HTTPD->new(
08   port => $opts{ p } );
09 
10 $httpd->reg_cb (
11     '/' => sub {
12       my ( $httpd, $req ) = @_;
13 
14       $req->respond ( { 
15         content => [ 'text/html', 
16           "I'll be your server tonight." ] 
17       } );
18     },
19 );
20 
21 my $cv = AnyEvent->condvar();
22 $cv->recv();