$dbh = DBI->connect("DBI:mysql:database=db;host=host", $user, $pass);
$dbquery = 'select * from table';
$sth = $dbh->prepare($dbquery);
$sth->execute();
while (my $ref = $sth->fetchrow_hashref())
{ print $ref->{'id'};
}
$sth->finish();
$dbh->disconnect();