Plack example

gistfile1.pl

#!/usr/bin/perl

my $app = sub {
    my $env = shift;

    my $html = "<h1>This is created by Plack</h1>";

    return [ 200 ,
        [ 'Content-type' => 'text/html', 'charset' => 'utf-8' ] ,
        [ $html ] ];
};