くだらない質問でゴメン。
これでa.plを実行したら、表示される結果は1？2？
やっぱり1？
手元にperlを実行できる環境がないけど、至急回答が必要なの…。

./a.pl
#!/usr/bin/perl
my $a = "1";
require './b.pl';
print $a;



./b.pl
#!/usr/bin/perl
$a = "2";
1;