Help for this page
my $database = LoadDatabase('a.pl'); print "$database\n"; ... sub LoadDatabase { .... }
>> c.pl:1: require "a.pl"; >> a.pl:1: use strict; ... >> c.pl:4: print "$database\n"; >> c.pl:5: require "a.pl"; >> c.pl:6: print "$database\n";