use CGI::Emulate::PSGI;
use strict;
use warnings;
use CGI qw(:cgi-lib :standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $q = new CGI;
my @keys = param();
my $state = "";
if(scalar @keys > 0){
$state = $keys[0];
}
my $app = CGI::Emulate::PSGI->handler(sub {
@keys = $q->param();
print $q->header;
print "
";
print $q->h1('Some title');
print "";
print $q->start_html(-title => 'Some title');
print $keys[0];
home();
sub home{
print "";
print $q->h3('Pick an option.');
print $q->end_form;
print "";
print "";
my $q0 = new CGI;
print $q0->start_form(
-name => 'some_button',
-method => 'POST',
-enctype => &CGI::URL_ENCODED,
);
print $q0->submit(
-name => 'click_me',
-value => 'Do something',
);
print $q0->end_form;
print "";
}
print $q->end_form;
});