if(! open (readFile, $in_file))
{
    Log_Error("Cannot read html file: '$in_file'");
    die;
}
				
			
my $info_ref;
			
while (my $line = <readFile>)
{
...
...                       
}