お世話になってまつ。
さっきの質問に関連するんですが、
多重にtieした場合、untieで復元出来ずに困ってます。
次のコードなんですが、

use IO::Scalar;

sub main
{
my $buf = "" ;
tie *STDOUT , 'IO::Scalar', \$buf ;
my $buf2 = "" ;
tie *STDOUT , 'IO::Scalar', \$buf2 ;
print "OK\n" ;
untie *STDOUT ;
print "1 $buf2" ;
untie *STDOUT ;
print "2 $buf" ;
}
main() ;

実行結果は次の様になってしまいます、
1 OK
2

untieできちんと復元できれば、
1 OK
2 1 OK
となるはずなんですが・・・
回避方法ご存知ないでつか？