#!perl -w

use strict;

sub main {
    my($env) = @_;
    return [
        200,
        [ 'Content-Type' => 'text/plain'],
        [ $env->{REQUEST_URI}, "\n" ],
    ];
}

if(caller) {
    return \&main;
}
else {
    require Plack::Handler::CLI;
    my $handler = Plack::Handler::CLI->new();
    $handler->run(\&main, \@ARGV);
}