#..................."~/test/DataBank.pm"
package DataBank;                							           
our @EXPORT_OK = qw( set_webpath get_scanpath get_findpath);
my %webpaths = (
	mypath => "",
	scanpath => "~/WebTabs/auto/htmlscan.0",
	findpath => "~/WebTabs/auto/htmlfilter.0"	
);
sub get_scanpath {return ($webpaths{"mypath"} || $webpaths{"scanpath"});}
sub get_findpath {return ($webpaths{"mypath"} || $webpaths{"findpath"});}
sub set_webpath {
	my $pathme = shift;
	unless (-f $pathme){$pathme = "";}
	$pathme ||= get_scanpath();	
	$webpaths{"mypath"} = $pathme;
}                                           

#..................."~/test/Scanner.pm"
package Scanner; ;
our @EXPORT_OK = qw( postscan);	
use Importer 'SpecsGet' => qw( pathout );
sub webget {.........}  				  # download heaps
sub postscan {
	my $pathx = pathout();
	print "\n$pathx\n\n";
}                                                

#..................."~/test/SpecsGet.pm"
package SpecsGet;
our @EXPORT_OK = qw( pathout);    							           
use Importer 'DataBank' => qw( get_scanpath get_findpath );
sub pathout {return get_scanpath();}

#..................."~/test/testme.pl"
use Importer 'DataBank' => qw (set_webpath);		
use Importer 'Scanner' =>qw (postscan);
use Cwd qw(getcwd cwd);						
set_webpath (getcwd()."/xxx");
#........................................# hours later
postscan();