use CGI;
use CGI::Croak;
use CGI::Wrap;
$query = new CGI;
savequery $query; # to reconstruct input
$CGI::Out::mailto = 'fred'; # override default of $<
run \&myfunc, @myargs # a function
run sub { code } # an inline function
run 'code' # something to eval
sub myfunc {
out $query->header();
out $query->start_html(
-title=>'A test',
-author=>'muir@idiom.com');
}
To use it, you must condense your program down to a single function call and then use CGI::Wrap::run to call it.
Instead of print, use out.
formats is provided by CGI::Wrap.