#set initital webpage
$url="http://www.fedex.com/ratefinder/home?cc=US&language=en&link=1&lid=//Ship//Pack+Rates+Corp";
 
#open initial webpage
my $mech = WWW::Mechanize->new();  
$mech->get($url);  


while($line=<ZIPPAIRS>){
	
	$indexForm2 = "standAloneActionForm";
	$mech->form_name($indexForm2) ;
	
	
	chomp $line;
	($Ozip, $Dzip)= split("\t",$line);
print " $Dzip $Ozip\n";

	#enter the zip codes and package weight of 3 lbs
	$mech->set_fields(
	origZip => $Ozip,
	destZip => $Dzip,
	totalPackageWeight =>"3",
		);   

	$mech->click_button(number=>3);
            

	#print current URL's html code to file 2
	my $results_html = $mech->content;
	print OUTFILEB $results_html;

        die "All Done.\n";