# HTTPIZE!
		foreach $elem ( keys %tform ) 
		{
			$tform{$elem} = &cgi'httpize($tform{$elem});
		}		
		$qs = "Firstname=$tform{firstname}%20$tform{lastname}&Company=$tform{company}&WorkStreetAddress=$tform{addr1}&WorkCity=$tform{city}&WorkProvince=$tform{state}&WorkCountry=$tform{country}&WorkZipCode=$tform{zip}&WorkPhone=$tform{phone}&txtAddEmail=$tform{email}&signUpGSN=T";
		my $ua = new LWP::UserAgent;
		$ua->credentials('www.SENDER.com','outer','proactive','gr8ap3');
		$header = new HTTP::Headers;
			$header->header(MIME_Version => '1.0',
			User_Agent	=> 'Viaduct Proactive/2.0',
			From		=> 'proactive\@viaduct.com');	
		
		$page = 'http://www.RECEIVER.com/nti/nti.pl?';
		
		$request = new HTTP::Request 'POST',$page,$header,$qs;
		
		$response = $ua->request ($request);
		
		$action = $response->as_string;
		 
		open (TEST, ">TEST.txt") || die "ARGH!\n\n";
		
                # THIS LINE GENERATES THE 500 ERROR!
                print TEST "$action\n";
		
                # AS A RESULT, I FAIL!  BOO HOO!
		if ($response->is_redirect)
		{
			print TEST "SUCCESS\n";
		}
		else
		{
			print TEST "FAILED\n";
		}
		close (TEST);