my $dbh = DBI->connect("DBI:mysql:$dbname:$dbhost", $dbuid, $dbpw) || db_err("connecting to database", $sql, $DBI::err, $DBI::errstr);
my $sql = "SELECT DCredits, Price, Description FROM $dbname.CUSTOMER_PLAN WHERE Name='$planname'";
my $sqlh = $dbh->prepare($sql) || db_err("preparing statement handle", $sql, $DBI::err, $DBI::errstr);
$sqlh->execute || db_err("executing query", $sql, $DBI::err, $DBI::errstr);
while (@row = $sqlh->fetchrow_array())
{
  ($credits, $price, $descript) = @row;
  # process the data on each loop here
}
$sqlh->finish;
$dbh->disconnect;