Select Code to Download

print $query->header(), $query->start_html('XX');
print $query->start_form(-method=>'post', -action=>'program.pl');
print $query->table(
...
);
print $query->end_form();
print $query->end_html();

use CGI qw(:standard);
my $query = new CGI;