Heray-Was-Here
Server : nginx/1.30.2
System : Linux elegant-dhawan.198-71-59-75.plesk.page 5.15.0-105-generic #115-Ubuntu SMP Mon Apr 15 09:52:04 UTC 2024 x86_64
User : realtyna_guys ( 10000)
PHP Version : 8.2.31
Disable Function : opcache_get_status
Directory :  /usr/share/doc/libnet-xwhois-perl/examples/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/doc/libnet-xwhois-perl/examples/whois
#!/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;

Hry