とりあえずIO::Teeを使う。