#!/home/mh/perl514/bin/perl --
use strict;
use warnings;
use Plack::Runner;
my $app = sub {
    return [ 200, [ "Content-Type" => "text/plain" ], ["hi"] ];
};
my $runner = Plack::Runner->new;
$runner->parse_options(
    qw{ -s FCGI --listen / tmp /fcgi.sock --daemonize --nproc 10 });
$runner->run($app);
__END__