use Business::PayPal::API::TransactionSearch;
use Data::Dumper;

$ENV{'PERL_LWP_SSL_VERIFY_HOSTNAME'} = 0;
 

my $pp = Business::PayPal::API::TransactionSearch->new(
  Username => 'username',
  Password => 'password',
  CertFile => 'paypal_cert_key_pem.txt',
  KeyFile  => 'paypal_cert_key_pem.txt',
  sandbox  => 0, 
  timeout => 5  
  );
 
$transid = '98832432992384234';
 
my $transactions = $pp->TransactionSearch(
    TransactionID => $transid
);

print "Content-type: text/html\n\n";
for my $rec ( @$transactions ) {
    print "Record:\n";
    print "TransactionID: " . $rec->{TransactionID} . "\n";
    print "Payer Email: " . $rec->{Payer} . "\n";
    print "Amount: " . $rec->{GrossAmount} . "\n\n";
	print "Status: " . $rec->{Status} . "\n\n";
}