#!/usr/bin/perl -w
use DBI;

print "Content-type:text/htmlnn";
$db_handle = DBI->connect("dbi:mysql:database=CYP1B1;host=localhost:192.168.3.93;")
    or die "Couldn't connect to database: $DBI::errstrn";

$sql = "SELECT * FROM BPCG";
$statement = $db_handle->prepare($sql)
    or die "Couldn't prepare query '$sql': $DBI::errstrn";

$statement->execute()
    or die "Couldn't execute query '$sql': $DBI::errstrn";
print "LocationtNucleotidechangetAminoacidchangen";
while(($Location,$Nucleotidechange,$Aminoacidchange)=$statement->fetchrow_array())
{
    print "$Location  $Nucleotidechange               $Aminoacidchange n";

}
$db_handle->disconnect();