#!/usr/bin/perl

##########################################################################
##########################################################################
####################### fair from toniemy crew ###########################
##########################################################################
##########################################################################

# script to add a visit to licznikinastrone.pl witch proxy support
# if you have curl, you can use the command: 
# curl http://www.licznikinastrone.pl/licz.php?id=[name counter] -x [proxyhost:port] -A "Mozilla/5.0"



  use LWP::UserAgent;
  $ua = LWP::UserAgent->new;
  $ua->agent('Mozilla/5.0');
  $ENV{HTTP_proxy} = "http://ipproxy:port"; #address proxy
  $ua->env_proxy; # initialize from environment variables
while ($n <= 100) {
print "Done ";
print $n++, "% \n";
  my $req = HTTP::Request->new(GET => "http://www.licznikinastrone.pl/licz.php?id=[name counter]"); #address counter
  $ua->request($req);
}
  delete $ENV{HTTP_PROXY};