俺が作っていいの？

ひょんなことから、採用試験の問題を作ることになった。いざ問題作るとなると難しいね（汗。浮かんで来るのはこんなマニアックな問題ばっかり。

Q. 以下のような三つのファイルがあるときに、a.plを実行したときに出力される三つの数字を答えよ。
[A1.pm]

use strict;

use vars qw($A);

$A = 100;
[A2.pm]

use strict;

use vars qw($A);

$A = 200;
[a.pl]

use strict;

use vars qw($A);

$A = 1; 

print $A . "\n";

use A1;

print $A . "\n";

eval "use A2";

print $A . "\n";

こんなマニアックなのじゃ業務に使えないしねぇ（笑）。とりあえず差し支えない問題を５問くらい作っておいた。これくらいみんな全問正解するのかなぁ？

答) 1, 1, 200