Select Code to Download

use TEST1;
use TEST2;

package TEST1;

use vars qw{$VERSION @ISA @EXPORT @EXPORT_OK};
...
use strict; 

my $dbaccess= 'whatever';

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

...


# play around.