Update: This is wrong, I found it somewhere else.. I was a little too trigger happy.

It only runs ok through all the "if's" (error-pages show), but when it reaches the point of connecting by the means of DBI it returns a BLANK page (and not a GREEN one).

You are not printing a header in in show_result.

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

And

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

Will perl for money
JJ Knitis
(901) 756-7693
gt8073a@industrialmusic.com