$SIG{PIPE} = 'IGNORE';
open LESS, '|less' or die "unable to start pager";
print LESS $string or die "cant write: $!";
close LESS or die "can't close: status = $?";
system("clear");