必要な時にモジュールをロード

大規模だけど、必ずしも使うモジュールではないようなものは
必要な時にロードしてみる。

print $Bin, "\n";
&set_bin;
print $Bin, "\n";

sub set_bin {
  require FindBin;
  import FindBin qw($Bin);
}

__END__

結果
$ ./test.pl

/home/hmiyazaki/work/prog/perl
$