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__