Site Lister V0.1

[kw3rln]

nu-i nush ce interesant..dar noah

#!/usr/bin/perl
####################################
# (C)oded by h4ckinger
# Hackinger's Web Page: [url]www.hackinger.org[/url]
# plz send e-mail me when u find a bug in this script
# mail:hackingerboy@gmail.com
# server site lister v0.1
# Private Tool
# greatz ;
# Darkcode,CyberGhost,excellance,redLine,The_BeKiR
# and All my Friends...
####################################
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 h4ckinger-ghost_boy<\/title>//;
print "h4ckinger's Server Site Lister\n(C)oded by h4ckinger - ghost_boy\n\n---------------------------------------\n";
$content=~s/
/\n/g;

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

}


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