Select Code to Download

# minimum code to illustrate point
# based on example in 'CGI programming with Perl'
...
  # die nicely
  exit
}

print    $q->header( 'text/html' );