#!/usr/bin/perl

eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
    if 0; # not running under some shell

use Net::Whois::Raw;

my $dom = $ARGV[0] || die "Usage: $0 domain";

print whois($dom);

__END__

=head1 NAME

pwhois   - Perl written whois client

=head1 SYNOPSIS

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

etc etc.....

=head1 DESCRIPTION

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

Ariel Brosh, B<schop@cpan.org>

=head1 SEE ALSO

L<Net::Whois::Raw>.

