perl Test-Output Test::Output Test::Output::Tie