Select Code to Download

sub show_result {
print <<"EOM"
...
EOM
$dbh->disconnect;
}

sub error_page {
print $query->header;
...
...
EOM
}