Select Code to Download

    use CGI qw/:standard/;
    print header;

    $r->content_type("text/html");
    $r->send_http_header;