Information Server

#!/usr/bin/perl
#c0dex by m0x.lk || Fucker Team ||
#Contact: [email protected]
#InformationServer

system ("clear");
system ("cls");
system ("color 0c");

print "\n\n[+]InformationServer and Content\n";
print "[+]c0dex by m0x.lk\n";
print "[+]Fucker Team\n";
print "[+]Host: ";
$host=<STDIN>;
print "\n\n";

sleep 1;

use IO::Socket;
use LWP::UserAgent;
use HTTP::Request;

my $ip = "$host";
my $con=LWP::UserAgent->new;
my $ua=HTTP::Request->new(GET=>$ip);
$cont= $con->request($ua)->as_string;
print "$cont";