#!/usr/bin/perl

use DBI;			# include the DBI package

my $db = "ensmartdb";	 	# stores database name
my $host = "localhost";		# stores name of server  where database is located
my $user = "guest";		# stores database username
my $passwd = "guest";		# stores database password

# now connect to db & store handle
my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host", $user, $passwd) or die "Couldn't connect to database: " . DBI->errstr;

# prepare a sth for execution
my $sth = $dbh->prepare("SELECT common_name, species FROM organism") or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute() or die "Couldn't execute statement: " . $sth->errstr;		# execute sth

while (my @row = $sth->fetchrow_array()) {	
	my $common_name = $row[0];	# get first element of record
	my $species = $row[1];		
	print "$common_name: $species\n";
}

if ($sth->rows == 0) {
	print "No data found.\n";
}

$sth->finish;

$dbh->disconnect;