#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request::Common qw(POST);
$ua = LWP::UserAgent->new;
use CGI;
my $q = CGI->new;
my $accountID = $q->param("id");
my $req = POST 'http://boomlings.com/database/getGJLevels21.php',
    [ Status => 'Active', Name => 'libwww-perl' ];
$req->content_type('application/x-www-form-urlencoded');
$req->content('gameVersion=20&binaryVersion=32&gdw=0&type=0&str='.$id.'&diff=-&len=-&page=0&total=0&uncompleted=0&onlyCompleted=0&featured=0&original=0&twoPlayer=0&coins=0&epic=0&secret=Wmfd2893gb7');
my $res = $ua->request($req);
print $res->as_string;