#!/usr/bin/perl

use warnings;
use strict;

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

my $user           = '';
my $password       = '';
my $signature      = '';
my $application_id = ''
my $url            = 'https://svcs.sandbox.paypal.com/AdaptivePayments/PaymentDetails';

my $ua      = LWP::UserAgent->new();
my $headers = HTTP::Headers->new(
        'X-PAYPAL-SECURITY-USERID'    => $user,
        'X-PAYPAL-SECURITY-PASSWORD'  => $password,
        'X-PAYPAL-SECURITY-SIGNATURE' => $signature,
        'X-PAYPAL-APPLICATION-ID'     => $application_id,
        'X-PAYPAL-MESSAGE-PROTOCOL'   => 'SOAP11');

my $format = '%s' x 8;
my $content = sprintf( $format,
       '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/">',
       '<soapenv:Body>',
       '<PayRequest><requestEnvelope>',
       '<errorLanguage>en_US</errorLanguage></requestEnvelope>',
       '<payKey>AP-xxxxxxxxxxxxx</payKey>',
       '</PayRequest>',
       '</soapenv:Body>',
       '</soapenv:Envelope>');

my $request  = HTTP::Request->new( 'POST', $url, $headers, $content );
my $response = $ua->request( $request );

print $response->status_line, "\n";