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