gistfile1.pl

# PlackupTest.pm
package PlackupTest;
use strict;
use warnings;
use Plack::Response;

sub hanlder {
    my $req = shift;
    my $body = qq{                                                                                                                                                               
<h1>Welcome To Ksk World.</h1>                                                                                                                                                   
                                                                                                                                                                                 
you request uri is @{ [ $req->uri ] }.<br />                                                                                                                                     
};  
    my $res = Plack::Response->new({ status => 200, body => $body });
    $res->header( 'content-type' => 'text/html' );
    $res;
}
1;

# plackuptest.pu
use PlackupTest;
run PlackupTest->new;