I was given a script that pulled data from ensembl its over 2 years old and it doesnt work did of the below change.  <div><br></div><div><div>use strict;</div><div>use warnings;</div><div>use Bio::EnsEMBL::Registry;</div><div>
use Bio::EnsEMBL::DBSQL::DBConnection;</div><div>use Bio::EnsEMBL::Utils::SqlHelper;</div><div><br></div><div>#Load all DBs from Ensembl Genomes</div><div>Bio::EnsEMBL::Registry->load_registry_from_db(</div><div>  -HOST => '<a href="http://mysql.ebi.ac.uk">mysql.ebi.ac.uk</a>',</div>
<div>  -PORT => 4157,</div><div>  -USER => 'anonymous',</div><div>  -verbose => 1</div><div>);</div><div><br></div><div>my $dbc = Bio::EnsEMBL::DBSQL::DBConnection->new(</div><div>  -HOST => 'localhost', </div>
<div>  -PORT => 3306,</div><div>  -USER => 'x', </div><div>  -PASS => 'x',</div><div>  -DBNAME => 'x'</div><div>);</div><div>#Holds a soft reference to the DBConnection so we cannot combine the two news</div>
<div>my $h = Bio::EnsEMBL::Utils::SqlHelper->new(-DB_CONNECTION => $dbc);</div><div><br></div><div>#Cleanup schema using do()</div><div>$dbc->do('DROP TABLE IF EXISTS introns');</div><div>$dbc->do(<<'SQL');</div>
<div>CREATE TABLE introns (</div><div>  idgld int(10) NOT NULL auto_increment,</div><div>   stbl_id varchar(12), </div><div>  seq_start varchar(12), </div><div>  seq_stop varchar(12), </div><div>  sequence text, </div><div>
  PRIMARY KEY(idgld)</div><div>)</div></div>