#!/usr/bin/env perl
###########################################
# myapp.pl
# Simple Web server with AnyEvent::HTTPD
# Mike Schilli, 2012 (m@perlmeister.com)
###########################################
use AnyEvent::HTTPD;
use Getopt::Std;

getopts "p:", \my %opts;

my $httpd = AnyEvent::HTTPD->new(
  port => $opts{ p } );

$httpd->reg_cb (
    '/' => sub {
      my ( $httpd, $req ) = @_;

      $req->respond ( { 
        content => [ 'text/html', 
          "I'll be your server tonight." ] 
      } );
    },
);

my $cv = AnyEvent->condvar();
$cv->recv();