Net::Whois::Proxy

[M. Lewis]

I'm having an issue with Net::Whois::Proxy that I don't understand.

Suggestions appreciated,

Thanks,
Mike

#!/usr/bin/perl

use strict;
use warnings;

use Net::Whois::Proxy;

# d.xxeqwe.txt contains one domain 'google.com'
my $domains = './d.xxeqwe.txt';

open (FILE,"$domains") || die "Cannot open $domains :$!";

while(<FILE>){
  chomp;
  my $whois = new Net::Whois::Proxy;
  print "$_\n";
  my $record = $whois->whois("$_");
  print $record;
}


Output:

[EMAIL PROTECTED] new-1206]$ ./netwhoisproxy.pl
google.com
Use of uninitialized value in print at ./netwhoisproxy.pl line 17.

--

 Field tested: Manufacturing doesn't have a test system.
  03:00:02 up 9 days, 16:26,  0 users,  load average: 0.90, 0.56, 0.46

 Linux Registered User #241685  http://counter.li.org

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>