Select Code to Download

my $dbh = do_dbi_connect( $db_type, $db_name, $db_username, $db_passwo
+rd, @_ );

...
    print "Content-type: text/html\n\n$_[0]"; 
    die $_[0] 
}