The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
unless (caller) {
    require Plack::Runner;
    Plack::Runner->run(@ARGV, $0);
}

my $handler = sub {
    return [ 200, [ "Content-Type" => "text/plain", "Content-Length" => 11 ], [ "Hello World" ] ];
};