use TEST1;
use TEST2;
##</code><code>##

package TEST1;

use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK};
require Exporter; @ISA = qw(Exporter); 
@EXPORT = qw($dbaccess);  # just to calling package !
$VERSION = '0.01';
use strict; 

my $dbaccess= 'whatever';

##</code><code>##

$main::dbaccess->prepare('yo 5h1+3');

#or .. 

$TEST1::dbaccess->prepare('yo 5h1+3');


# play around.