a simple BioPerl script

gistfile1.pl

#!/usr/bin/perl -w

use strict;
use Bio::DB::SeqFeature::Store;

my $db = Bio::DB::SeqFeature::Store->
  new( -adaptor => 'DBI::mysql',
       -dsn     => 'my_database:mysql.mysql.host.here.ac.uk',
       -user => 'me',
       -pass => 'secret',
     );

my @features =
  $db->features( -seq_id => 'chr10',
		 -start  => 1,
		 -end    => 1700000,
		 -type   => 'gene',
	       );