Lazy Programmer's Wlog / Tech

http://perldoc.perl.org/functions/do.html　の記事にあったのですが、

do 'stat.pl';

は

eval `cat stat.pl`;

なのを知りました。ですので、 stat.pl 内でシンタックスエラー等、何らかなエラーがあった場合のエラー処理を外側でやらないと、doはエラー処理をしてくれません。

do 'stat.pl';
die $@ if $@;

のように、$@を利用してエラーしょりをつけましょう！