#!/usr/bin/perl -l
use strict;
use WWW::Mechanize;
use Crypt::SSLeay;
use HTTP::Cookies;
use LWP::Debug qw(+);
my $outfile = "out.htm";
my $url = "https://report:H4ckP4s5\@colomanager\.\/stats\/cg
i\?sid\=1242418655166\&area=recent\&action=frame\&width=1135\&id=576697218059\&"
;
#my $username = "ps-report";
#my $password = "Hack.2ae";
my $mech = WWW::Mechanize->new();
$mech->cookie_jar(HTTP::Cookies->new());
$mech->get($url);
my $output_page = $mech->content();
open(OUTFILE, ">$outfile");
print OUTFILE "$output_page";
close(OUTFILE);
<br>