#!/usr/bin/perl

use strict;

use Digest::MD5 qw(md5_hex);

 

UniqueID();











exit;

use LWP::Simple;

my $doc = "http://webservices.micropayment.de/public/c2p/v2/?accesskey=712da28a3bd0f9e7fca3e7bc0c10afef&action=INIT&project=bjpyfr&projectcampaign=bjc2p&account=12917&webmastercampain=bjc2p&sessionid=12121212121212&ip=79.233.107.61&country=DE&language=DE&currency=EUR&freeparam=volumelow_call2pay_01607979247_1210840514&testmode=1";

my $test = get($doc);
$test =~ s/\%([A-Fa-f0-9]{2})/pack('C', hex($1))/seg;

print $test;
