use LWP::UserAgent; 
use HTTP::Request;

my $ppd = 'script post url with all the variables';
my $aweber = 'script post url with all the variables';

&do_ppd;
&do_aweber;
&do_register;

sub do_ppd {
my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30); 
my $header = HTTP::Request->new(GET => $ppd); 
my $request = HTTP::Request->new('GET', $ppd, $header); 
my $response = $agent->request($request);

# Check response 
if ($response->is_success){ 
print "url:$url\nHeaders:\n"; 
print $response->headers_as_string; 
print "\nContent:\n"; 
print $response->as_string; 
}elsif ($response->is_error){ 
print "Error:$url\n"; 
print $response->error_as_HTML; 
}
}

sub do_aweber {

my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30); 
my $header = HTTP::Request->new(GET => $aweber); 
my $request = HTTP::Request->new('GET', $aweber, $header); 
my $response = $agent->request($request);

# Check response 
if ($response->is_success){ 
print "url:$url\nHeaders:\n"; 
print $response->headers_as_string; 
print "\nContent:\n"; 
print $response->as_string; 
}elsif ($response->is_error){ 
print "Error:$url\n"; 
print $response->error_as_HTML; 
}
}

sub do_register {
 #see if user exists
 #see if email is valid and doesn't already exist
 #mysql insert
}