use LWP::UserAgent;

my $ua  = LWP::UserAgent->new;
my $page = $ua->get(
	'https://www.paytox.com/?cmd=retrieve_trans' .
	'&user_id=<USERID>&xipn=<XPIN>&xhash=<XHASH>&trans_id=<TRANSID>'
);

die "HTTP resquest not successful; $!" unless ($page->is_success);
my $trans = split(',', (split("\n", $page->content)[-1]);