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

##</code><code>##

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