in reply to DB Connection using CGI::Application

try 

$self->param('mydbh',$sql_dbh);
$self->param('mydbh400',$as400_driver);

[download]
poj

In Section Seekers of Perl Wisdom