The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use FindBin;
sub {
    my $env = shift;
    return [ 200, [ "Content-Type", "text/plain" ], [ $FindBin::Bin ] ];
};