use IPC::Run3 'run3';
run3 ['less'], \$output or die $!;
die "run3: \$?=$?" if $?;