$dsn = "DBI:mysql:yip;db.yip.com";
$dbh = DBI->connect($dsn,'me','pass');
$sth = $dbh->prepare("SELECT company FROM company_public;");
$sth->execute();
$companies = $sth->fetchall_arrayref; #a reference to an array of arrays of references to each row
$dbh->disconnect;

foreach $row (@$companies) {
($company) = @$row;
print "$company\n"; #just printing it out for fun
}