while(my $line = <$fh>){
 if($parser->parse($line)){