open my $output, '>-' or die $!;