Select Code to Download

$dbcontext = Bio::DB::SimpleDBContext->new( {
                                              -database => 'biosql'
...
                                              -port     => 3306,    # 
+optional
                                              -driver   => 'mysql',
                                            } );

# in Bio::DB::SimpleDBContext
sub new {
...
   else {
      my $args{arg1, arg2} = @_;
   }