my @cmd = ('less', '-');
die '@cmd must have more than one element' unless @cmd>1;
open my $fh, '|-', @cmd or die $!;
print $fh $output;
close $fh or die $! ? $! : "pipe: \$?=$?";