#!/usr/bin/env perl
use strictures;
use CGI qw(:standard);

print header(),
    start_html("OHAI"),
    h1("HAI DER"),
    blockquote("I CAN HAZ SEE GEE AIEE?"),
    p("KTHXBAI!"),
    end_html();

##</code><code>##

moo@cow[201]~>plackup -L Shotgun -p 8080 -MPlack::App::WrapCGI -e 'Plack::App::WrapCGI->new(script => "/home/moo/hai.cgi")'

# HTTP::Server::PSGI: Accepting connections at http://0:8080/