![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
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
.
format
s is provided by CGI::Wrap.
$CommentsMailTo = "perl5@dcs.ed.ac.uk"; include("../syssies_footer.inc");?>