Select Code to Download

#!/usr/bin/perl

use warnings;
...
 );
 die $som->faultstring if ($som->fault);
 print $som->result, "\n";

my $ua      = LWP::UserAgent->new();
my $headers = HTTP::Headers->new(
        'X-PAYPAL-SECURITY-USERID'    => $user,
...

use Data::Dumper;
print Dumper(XMLin($response->decoded_content));

<?xml version="1.0" encoding="utf-8"?>
<PayRequest xmlns="http://svcs.paypal.com/types/ap">
  <requestEnvelope xmlns="">
...
  </account>
  <returnUrl xmlns="">http://paypal.angelleye.com/paypal/class/1.2/Pay
+_Return.php</returnUrl>
</PayRequest>