hello psgi basic auth

my $app = sub {
    return [ 200, [ 'Content-Type' => 'text/plain' ], [ "Hello, World!\n" ] ];
};

use Plack::Builder;
builder {
    enable "Auth::Basic", authenticator => sub {$_[1] eq 'tacoman'};
    $app;
};