Help for this page

Select Code to Download


  1. or download this
    use strict;
use CGI;
...
# assign params to $template according to user input/validation

print $q->header, $template->output;
  2. or download this
    use strict;
my $q = My::CGI->new;
...
package My::CGI;
use base qw(CGI);
sub h1 { "<42>$_[1]</42>" }
  3. or download this
    perl -MCGI=foo -le "print foo{bar=>baz},qux"