[source] FTS Whois

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

esse script permite exibir informaçao do site atraves de whois, a sintaxe e nome do script + o site

exemplo: fts_whois.pl www.uol.com.br

Código:

#!/usr/bin/perl
#autor: hacker fts315

use LWP::UserAgent;

my $conexao = LWP::UserAgent->new;
print "===============================================\n";
print "                  FTS WHOIS      \n" ;
print "===============================================\n\n";

$conexao2 = $conexao->post("http://www.tcpiputils.com/whois-lookup",["whois" => $ARGV[0]]);
@info = $conexao2->content =~ /Whois lookup for:.*<\/h1><pre>(.*)<\/pre><p><br \/>/s;
print $info[0] . "\n";

Legal, pode ser util depedendo do momento. Excelente. Valeu.