if (!print LESS $string) {
   die "cant write: $!" if !$!{EPIPE};
}

close LESS;