#globals
my $bdbi;
my $connector;
my $searchio

#then later in the sub, don't declare them as lexical,
#but reuse the global space

sub{

$bdbi = new BEAST_UPDATE();
..........
$connector = new AAFCBLAST;
....
$searchio = new Bio::SearchIO();

.....
}