There was an error: You tried to write to a broken pipe.

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

close LESS;
[download]