| Server IP : 104.21.4.30 / Your IP : 104.23.197.87 Web Server : Apache System : Linux keen-cori.18-142-40-148.plesk.page 5.15.0-1084-aws #91~20.04.1-Ubuntu SMP Fri May 2 06:59:36 UTC 2025 x86_64 User : simottodesign.com_2tntp341vs7 ( 10011) PHP Version : 8.3.31 Disable Function : opcache_get_status MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/doc/libnet-xwhois-perl/examples/ |
Upload File : |
#!/usr/bin/perl -s
use lib qw(lib/ ../lib);
use Net::XWhois;
my $whois = new Net::XWhois Domain => shift,
Server => $h;
if ( $e ) { my @emails = $whois->contact_emails; $" = ", "; print "Contacts: @emails\n"; exit }
if ( $n ) { my @emails = $whois->nameservers; $" = ", "; print "Nameservers: @emails\n"; exit }
if ( $r ) { my @emails = $whois->registrants; $" = ", "; print "Registrants: @emails\n"; exit }
print $whois->response;