捕获:: Tiny包中的Tee_stderr函数，perl

Question

我想使用capture :: tiny package的tee_stderr函数捕获文件中的所有错误。

我已经为此提到了以下网站。 http://search.cpan.org/~dagolden/Capture-Tiny0.46/lib/Capture/Tiny.pm#tee_stderr

但是我对网站中给出的语法感到困惑。我想知道捕获和发球台之间的区别。还请用简单的程序向我解释“tee_stderr”。

请找到我一直在处理的示例代码：

use Capture::Tiny ':all';
my $err1_fh = IO::File->new("Teed_Error.txt", "w+");
my $stdout;
my $stderr;
($stdout, $stderr) =tee {
                       $a=10;
                       $b=0;
                       $c=$a/$b;
                       print $c;
};
$stderr = tee_stderr { print " success"; };
$stderr => $err1_fh;

`

我得到的输出是“非法除零”。这应该使用捕获微包的“tee_stderr”函数从控制台捕获到命名错误文件。

任何帮助将不胜感激！ 提前谢谢。