... <%once> use lib '/var/www/nlt/libs'; use CMS::Users; my $u = CMS::Users->new(); $u->SetDBH($mysql_db_handle); print $u->GetUserList(); ...