Help for this page
do "a.pl"; print "$database\n"; ... print "$database\n"; do "a.pl"; print "$database\n";