perl -MInput::X -e 'print while($_=Input::X::read)' input.x |  \
  perl -MOutput::Y -pe '$_ = Output::Y::get_output( $_ ) > output.y