do "a.pl";
print "$database\n";
do "b.pl";
print "$database\n";
do "a.pl";
print "$database\n";