BEGINサブルーチンについて

BEGINサブルーチンは、スクリプトのコンパイル時に自動的に１回のみ呼び出されます。
したがって、普通、初期化処理（ファイルの読み込み等）は、ここに記述します。

use strict;
my $aaa;
&xxx();
sub xxx {
    print $aaa, "\n";
}
sub BEGIN {
    $aaa = "ABCD";
}

尚、my宣言された$aaaのレキシカルスコープは、ローカルサブルーチン（xxx()とBEGIN()）も含みます。