use File::Temp qw/tempfile/;
my ($fh,$fn) = tempfile(UNLINK=>1);
print $fh $output;
close $fh;
system('less',$fn) == 0 or die "system: \$?=$?";