#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;

my $auser = 'jebediah';    # kerman
my $apwd =  'KSP#bada55';  # green

my $page = 'http://api.xxx.com/endpoint';
my @args = ( user => $auser, pass => $apwd );

my $agent = new LWP::UserAgent();
die "couldn't create agent\n" unless $agent;

my $response = $agent->post( $page, Content => \@args );
die "couldn't post web page\n" unless $response;

# process $response->header() here if desired.

print $response->content(), "\n";