Code:
#!/usr/bin/perl
use HTTP::Request;
use LWP::UserAgent;
system('cls');
system "color 0a";
print"\n";
print " Please Enter IP\n Example: [url]192.168.1.1[/url] or 192.168.1.1/path\n-> ";
$site=<STDIN>;
chomp $site;
print "\n";
print "source code\n\n 1 = php\n\n-> ";
$code=<STDIN>;