>>868
ファイルハンドルにリダイレクトする方法ですが、tieと組み合わせるとうまくいきませんでした。

package Foo1;
sub TIEHANDLE {
　　return bless { output => "" }, shift;
}
sub PRINT {
　　my $self = shift;
　　$self->{output} .= $_ for (@_);
}

package main;
my $out;
{
　　$out = tie(local *STDOUT, 'Foo1');
　　open(local *STDERR, '>&', ¥*STDOUT) or die $!;
　　print "into STDOUT¥n"; # 表示される
　　print STDERR "into STDERR¥n"; # 表示されない
　　close STDERR;
}
print "--- output ---¥n", $out->{output};

引き続き、アドバイスお願いします。