STDERRのテスト

エラーメッセージのテストをしたい場合。

my $err;

local *STDERR;
open STDERR, ">", \$err or die $!;

とかやれば、$errに、STDERRに入るべきものが$errに入る。