my $returncode;
while(<IN>){
  if( /error/i ){
     print;
     $returncode++;
  }
}
if ( $returncode ){
  BoogieWoogie();
}