Select Code to Download

sub end_form {
    my($self,@p) = self_or_default(@_);
...
        }
    }
}

use CGI qw(-nosticky);

print do {local $CGI::NOSTICKY = 1; $q->end_form()} . "\n";