Select Code to Download

sub psgier {
 my( $env ) = @_;
...
 my $res = app_logic( $query );
 return $res;
}

sub cgier {
 my $q = CGI->new;
...
 print $q->header;
 print $response;
}