print <<EOF;
Company Info:<br>
<table cellpadding="2" cellspacing="0" border="0" width="100%">
	<tr>
		<td>ID</td>
		<td>Name</td>
		<td>Company</td>
		<td>Country</td>
		<td>File</td>
		<td>Summary</td>
		<td>Date Submitted</td>
	</tr>
EOF
#retrieve business plans
$ci_blah = "mypassword";
use DBI;

 	 $dbh_m = DBI->connect('DBI:mysql:companies','myusername',$ci_blah) or die "Couldn't connect to database: " . DBI->errstr;

		 $sql_m = "SELECT id,firstname,lastname,country,file_name,summary,date FROM companies_db";

		 $sth_m = $dbh_m->prepare($sql_m) or die "preparing: ",$dbh_m->errstr;
		 $sth_m->execute or die "executing: ", $dbh_m->errstr;
		 $results = $sth_m->fetchrow_hashref;
print "	<tr>";
print "		<td>$results->{'id'}</td>";
print "		<td>$results->{'firstname'} $results{'lastname'}</td>";
print "		<td>$results->{'company'}</td>";
print "		<td>$results->{'country'}</td>";
print "		<td>$results->{'file_name'}</td>";
print "		<td>$results->{'summary'}</td>";
print "		<td>$results->{'date'}</td>";
print "	</tr>";

while (@data = 
    $sth_m->fetchrow_array())  # keep fetching until 
                             # there's nothing left
{
print "	<tr>";
print "		<td>$data[0]</td>";
print "		<td>$data[1] $data[2]</td>";
print "		<td>$data[3]</td>";
print "		<td>$data[4]</td>";
print "		<td>$data[5]</td>";
print "		<td>$data[6]</td>";
print "		<td>$data[7]</td>";
print "	</tr>";
}
 	 $sth_m->finish;
	 $dbh_m->disconnect;

print "</table>";