IO::scalarでIOのキャプチャ
STDIN/STDOUTを使うテスト
IO::ScalarArray 標準入力の自動試験
標準モジュールのIO::scalarでもIOキャプチャできますよ。
Tieによるモジュールと機能はほぼ同じです。
#!perl -w use strict; { my $content = "Hello, world\n"; open my $in, '<', \$content; local *STDIN = $in; print scalar <STDIN>; } print scalar <STDIN>; __END__