#!C:/Perl/bin/perl.exe -w
use warnings;
use strict;
use WWW::Mechanize;
my $mech = WWW::Mechanize->new(agent => 'Mozilla/5.0');
$mech->mirror('http://www.click.in/includes/gd.php?scode=NzQwOTc0','d:/img.jpg');