#!/usr/bin/perl 
#################################### 
# (C)oded by Ivanalicius
# server site lister 
#################################### 
use LWP::UserAgent; 
$xpl = LWP::UserAgent->new( ) or die; 

my $OperatingSystem = $^O; 
my $unix = ""; 
if (index(lc($OperatingSystem),"win")!=-1){ 
$unix="0"; #windows system 
}else{ 
$unix="1"; #unix system 
} 
if($unix){ 
system("clear"); 
} 
else{system("cls");} 
$site=$ARGV[0]; 
if(!$site){&usage} 
$res = $xpl->get("http://hackinger.org/tool/whois.php?ip=$site", 'USER_AGENT'=>"hackozilla"); 
if($res->is_success) { 
$content=$res->content; 
$content=~s/<title>Coded by Ivanalicius<\/title>//; 
print "h4ckinger's Server Site Lister\n(C)oded by Ivanalicius - ghost_boy\n\n---------------------------------------\n"; 
$content=~s/<br>/\n/g; 

print "$content---------------------------------------"; 

} 

sub usage{ 
if($unix){ 
system("clear"); 
} 
else{system("cls");} 
print q[ 
============================================================ =========== 
Server Site Lister 
(C)oded by Ivanalicius
usage: list.pl <site> 
example: list.pl hackinger.org 
============================================================ =========== 
]; 
exit; 
}