NAME

pwhois - Perl written whois client

SYNOPSIS

pwhois perl.com pwhois gnu.org pwhois -s police.co.il pwhois -c there.is.no.tld.called.foobar pwhois yahoo.com whois.networksolutions.com

etc etc.....

DESCRIPTION

Just invoke with a domain name, optionally with a whois server name. The -s switch attempts to strip the copyright message or disclaimer. The -c switch attempts to return an empty answer for failed searches.

AUTHOR

Ariel Brosh, schop@cpan.org

SEE ALSO

Net::Whois::Raw.

END_OF_SCRIPT use Config;

my $file = __FILE__; $file =~ s/\.PL$//;

$script =~ s/\~(\w+)\~/$Config{$1}/eg; if (!(open(FILE, ">$file")) || !(print FILE $script) || !(close(FILE))) { die "Error while writing $file: $!\n"; } chmod 0755, $file; print "Extracted $file from ",__FILE__," with variable substitutions.\n";