#!perl -w
use strict;
use CGI qw(:standard escapeHTML);

#############
print header(), start_html("Search Results");
############

my $string = param("submit_zip");
my $inputs = 'zip-acc.txt';

open( my $in, '<', $inputs) or die "can't open $inputs.\n";

while ( <$in> ) { 
    if ( $_ =~ m/^$string(.*)/ ) 
	{ 
        print "$1\n"; 
	print br;
	print br;
	my @contractors = split(m#\s+#, $1);
		my $continputs = 'acc-addy.txt';
		my $contractors;
		foreach $contractors(@contractors)		
			{
			open( my $contin, '<', $continputs) or die "Cannot open $inputs.\n";

			while ( <$contin> ) 
					{ 
    				if ( $contractors =~ m/^$string(.*)/ ) 	
						{ 
					my @results = split(m#\s+#, $1);
					print br;
					print @results;
						}
 					}
			close( $contin );
    			}
	}
    }
close( $in ); 

############
print end_html();
############