01 #!/usr/bin/env perl
02 use Plack::Runner;
03 
04 my $runner = Plack::Runner->new;
05 $runner->parse_options( @ARGV );
06 $runner->run( sub {
07   my( $env ) = @_;
08 
09   return [ 200, 
10     [ "Content-type" => "text/html" ], 
11     [ "Hello from Plack"] 
12   ];
13 } );