sub look_through_file ($$) {   
    
    my ($start_point, $continue_tag) = @_;