my @user_id = 
  CompanyDB::Query('USER_ID_FROM_USERNAME', $cgi->param('username'));

##</code><code>##

use EZDBI;
for my $row (Select('* from users')) {

}

use DBIx::Abstract;
$dbh->select('* from users');