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';