Re: Code from PHP to Perl

[tobyink]

use v5.12;
use HTTP::Tiny;

# Some empty hashes. I'll leave populating them with
# the correct data as an exercise for the reader.
my %_GET  = ();
my %_POST = ();

my $url      = "http://affiliate.frankstrade.com/plugins/PayPal/paypal
+.php?pap_custom=$_GET{pap_custom}";
my $response = "HTTP::Tiny"->new->post_form($url, \%_POST);

if ($response->{success})
{
   say $response->{content};
}
else
{
   warn $response->{reason};
}