$pid = open(PIPE, "my_shell_command |") or die;
while ($line = <PIPE>) { 
    if ($i_received_too_much_garbage) {
       kill $my_favorite_signal => $pid;
    }
}
...