s4553711
10/4/2012 - 1:42 PM

Plack example

Plack example

#!/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 ] ];
};