Bypass counting time adf.ly

use LWP::UserAgent;

##### Setting #####
$agent=LWP::UserAgent->new(
    agent => 'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:15.0) Gecko/20100101 Firefox/15.0.1',
    timeout => 15,
    max_redirect => 0
);
$i=1;
$j=1;
##### End Setting #####

print "\n [+]------------------------------------------------[+]\n";
print " [+]                                                [+]\n";
print " [+]    Script for bypass time counter on adf.ly    [+]\n";
print " [+]       Create on     : 04/02/2013               [+]\n";
print " [+]                                                [+]\n";
print " [+]                Thx for AssazziN                [+]\n";
print " [+]                                                [+]\n";
print " [+]------------------------------------------------[+]\n";

print "\n [+] Enter your links and then press 'q' to done\n";

print " $i> ";
while ($insert=<STDIN>) {
    chomp($insert);
    if ($insert=~/http/ and $insert ne 'q') {
        push(@link,$insert);
        ++$i;
    }
    last if ($insert eq 'q');
    print " $i> ";
}

print "\n\n"; $i-=1;
foreach (@link) {
    $content=$agent->get($_)->content;
    $content=~s/\r|\n//g;
    ($content)=$content=~/var zzz = '(.*?)';/;
    print " [$j/$i] $content\n";
    ++$j;
}
#http://comfreedom.blogspot.com