Select Code to Download

use strict;
use warnings;
...
our ($database);

$database = "test1";

use strict;
use warnings;
...
our ($database);

$database = "test2";

require "a.pl";
print "$database\n";
...
print "$database\n";
require "a.pl";
print "$database\n";

test1
test2
test2

test1
test2
test1