Select Code to Download

#!/usr/bin/perl -T
use MyModule;
MyModule->new->go;

package MyModule;
use CGI qw();
...
}

1;

#!/usr/bin/perl -T
use Test::More tests => 8;
...
is $r->content, $post_data;

kill 'KILL', $pid;

package TestServer;
use HTTP::Server::Simple::CGI qw();
...
}

1;

diag $r->as_string;
# HTTP/0.9 200 Assumed OK
...
# Content-Type: text/html; charset=ISO-8859-1
#
# some post data