#GOP.gov Anywhere API HTTP POST Call, Perl Implementation
#House Republican Conference, Office of Chairman Mike Pence
#Thursday, January 22, 2008

use strict;
use warnings;
use LWP 5.64;
my $browser = LWP::UserAgent->new;

#Basic Information
my $api_token = 'YOUR API TOKEN HERE';
my $method = 'METHOD GOES HERE';
	#For a list of available methods, go to www.gop.gov/api
	#To get your GOP.gov Anywhere API Token, go to www.gop.gov/portfolio/apitoken


#Parameters of the Call
my $calldata = 'api_token=$api_token&parameter=data&parameter2=data2'
	#Required parameters for each method can be found at www.gop.gov/api

my $response = $browser->post('http://www.gop.gov/api/$method',
[$calldata]);
die "$url error: ", $response->status_line
unless $response->is_success;
die "Error Encountered -- ", $response->content_type
unless $response->content_type eq 'text/plain';

print "$response->content";