Select Code to Download

if ($q->param('submit1') eq 'submit1') {
    $index="Some val";
...
    print $q->submit(-name=>"submit2",
         -label=>"submit2") . " ",
}