[Perl] WhoIs

Descrizione
Semplice esempio di WhoIs in Perl.

Codice
use Net::Whois::Raw;
$s = whois('google.com');
print $s;
system("PAUSE");