#!/usr/bin/perl

# PERL MODULES
use DBI;
use DBD::mysql;



# CONFIG VARIABLES
$platform="mysql";
$host="ensembldb.ensembl.org";
$port="5306";
$user="anonymous";
$pw="";
$database="homo_sapiens_core_73_37";

#DATA SOURCE NAME ###############################
$dsn="dbi:mysql:$database:$host:5306";

#CONNECTION
#####################################
$DBIconnect=DBI->connect($dsn,$user,$pw);

#Query
########################################
$sqlquery="select * from gene limit 10 ";
$sth=$DBIconnect->prepare($sqlquery);
$sth->execute;

#PRINT RESULTS ##################################
while(@row=$sth->fetchrow_array){
print "@row\n";
}