#!/usr/bin/perl -w
use lib "/export/home/s/ssorocza/myperl"; 

# parse HTML response                     
package MyParser;                         

open LOG, '>>out.txt' ;                   

use HTML::Parser;                         
use HTML::Entities qw(decode_entities);   

@ISA = qw(HTML::Parser);                  

sub text {
my ($self, $text) = @_;               
    print LOG decode_entities($text);     
}                                         
                                          
package main;                             
                                          
while ( <> ) {                            
    MyParser->new->parse_file($ARGV);     
}