Select Code to Download

my $q = new CGI;
print $q->header, $q->start_html(-title=>'Test');
...
}
$dbh->disconnect;
print $q->end_html;