IHC ip location and info finder script

PERL -- >

#!/usr/bin/perl

use Socket;
use Term::ANSIColor;

# Information from IP or host
# Code by Cyb3r h4ck3r
# http://www.Facebook.com/itsmehulbhatt

print color ‘bold green';
print “*================================================*n”;
print “[IHC IP – Location and information from IP address]n”;
print ” By Cyb3r h4ck3r http://www.facebook.com/itsmehulbhatt n”;
print “*================================================*n”;
print “n”;
print color ‘reset';
@iphost=$ARGV[0] || die “Use: IPloc nEx: IPloc www.google.com n IPloc 74.125.224.208n n”;
my @ip = inet_ntoa(scalar gethostbyname(“@iphost”)or die “Ip ou Host invalidon”);
my @hn = scalar gethostbyaddr(inet_aton(@ip),AF_INET);

#@dados=(“curl -s ‘http://api.ipinfodb.com/v3/ip-city/?key=e9deb425dd071948093f827111646df275796975eb55da00fe7a0a7c633a907b&format=text&ip=@ip'”);
@dados=(“curl -s ‘http://ip-api.com/@ip'”);

print color ‘bold green';
print”*========*===================================*n”;
print”ISP: tt”;system(“@dados | grep ‘ISP:’ |cut -d ‘>’ -f6 | cut -d ‘<' -f1");
print"ORG: tt";system("@dados | grep 'Organization:' |cut -d '>‘ -f6 | cut -d ‘<' -f1");
print"+--------------------------------------------*n";
print"|IP | @ipn";
print"|Hostname| @hnn";
print"|País | ";system("@dados | grep 'Country:' |cut -d '>‘ -f6 | cut -d ‘<' -f1");
print"|Estado | ";system("@dados | grep 'Region:' |cut -d '>‘ -f6 | cut -d ‘<' -f1");
print"|Cidade | ";system("@dados | grep 'City:' |cut -d '>‘ -f6 | cut -d ‘<' -f1");
print"|Lat | ";system("@dados | grep 'Latitude:' |cut -d '>‘ -f6 | cut -d ‘<' -f1");
print"|Long | ";system("@dados | grep 'Longitude:' |cut -d '>‘ -f6 | cut -d ‘<’ -f1″);
print”*========*====================================*n”;
print color ‘reset';