Select Code to Download

#!c:/perl/bin/perl -wT

...
print $foo->header(-cookie => [$cookie_id, $cookie_var]);

print "<A HREF=\"check_cookie.cgi\">Check Cookie</A>\n";

#!c:/perl/bin/perl -wT

...
my $var = $foo->param('something');

print "$id<BR><BR>$var";