pump $h while $h->signal( 0 ) 
        and $out !~ /BRU Server >/i;