The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

pwhois - Perl written whois client

SYNOPSIS

pwhois perl.com pwhois gnu.org pwhois police.co.il

etc etc.....

DESCRIPTION

Just invoke with a domain name. Does not support explicit domain name specifying.

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"; } print "Extracted $file from ",__FILE__," with variable substitutions.\n";