Select Code to Download

my $qry = CGI->new();
my $vars = $qry->Vars();
...
$tmpl->param( $vars );
my $msg = $tmpl->output();
print $qry->header, $msg;