my $out;
while (<>) {
  chomp;
  $out .= $_;
}