help with whois code

[Thomas Browner]

Could some one help me with this code. Every time that I this code:

 

use Net::Whois; 

use Carp;

$dom ="digidyne.com";

my $w = new Net::Whois::Domain $dom or die "Can't connect to Whois
server\n;

 unless ($w->ok) { croak "No match for $dom";}

 print "Domain: ", $w->domain, "\n";

 print "Name: ", $w->name, "\n";

 print "Tag: ", $w->tag, "\n";

 print "Address:\n", map { "    $_\n" } $w->address;

 print "Country: ", $w->country, "\n";

 print "Name Servers:\n", map { "    $$_[0] ($$_[1])\n" }

 @{$w->servers};

 my ($c, $t);

 if ($c = $w->contacts) {

   print "Contacts:\n";

   for $t (sort keys %$c) {

     print "    $t:\n";

     print map { "\t$_\n" } @{$$c{$t}};

   }

 }

 print "Record created:", $w->record_created ;

 print "Record updated:", $w->record_updated ;

 

 

 

I get the following error:

 

Bareword found where operator expected at C:\testScripts\testwhois.pl
line 4, near "unless ($w->ok) { croak "No"

  (Might be a runaway multi-line "" string starting on line 3)

        (Do you need to predeclare unless?)

String found where operator expected at C:\testScripts\testwhois.pl line
5, near "print ""

  (Might be a runaway multi-line "" string starting on line 4)

        (Missing semicolon on previous line?)

Bareword found where operator expected at C:\testScripts\testwhois.pl
line 5, near "print "Domain"

        (Do you need to predeclare print?)

Backslash found where operator expected at C:\testScripts\testwhois.pl
line 5, near "", $w->domain, "\"

        (Missing operator before \?)

String found where operator expected at C:\testScripts\testwhois.pl line
6, near "print ""

  (Might be a runaway multi-line "" string starting on line 5)

        (Missing semicolon on previous line?)

Bareword found where operator expected at C:\testScripts\testwhois.pl
line 6, near "print "Name"

        (Do you need to predeclare print?)

Backslash found where operator expected at C:\testScripts\testwhois.pl
line 6, near "", $w->name, "\"

        (Missing operator before \?)

String found where operator expected at C:\testScripts\testwhois.pl line
7, near "print ""

  (Might be a runaway multi-line "" string starting on line 6)

        (Missing semicolon on previous line?)

Bareword found where operator expected at C:\testScripts\testwhois.pl
line 7, near "print "Tag"

        (Do you need to predeclare print?)

Backslash found where operator expected at C:\testScripts\testwhois.pl
line 7, near "", $w->tag, "\"

        (Missing operator before \?)

String found where operator expected at C:\testScripts\testwhois.pl line
8, near "print ""

  (Might be a runaway multi-line "" string starting on line 7)

        (Missing semicolon on previous line?)

Bareword found where operator expected at C:\testScripts\testwhois.pl
line 8, near "print "Address"

        (Do you need to predeclare print?)

String found where operator expected at C:\testScripts\testwhois.pl line
8, near "n", map { ""

Scalar found where operator expected at C:\testScripts\testwhois.pl line
8, near "", map { "    $_"

        (Missing operator before     $_?)

Backslash found where operator expected at C:\testScripts\testwhois.pl
line 8, near "$_\"

        (Missing operator before \?)

String found where operator expected at C:\testScripts\testwhois.pl line
9, near "print ""

  (Might be a runaway multi-line "" string starting on line 8)

        (Missing semicolon on previous line?)

Bareword found where operator expected at C:\testScripts\testwhois.pl
line 9, near "print "Country"

        (Do you need to predeclare print?)

Backslash found where operator expected at C:\testScripts\testwhois.pl
line 9, near "", $w->country, "\"

        (Missing operator before \?)

String found where operator expected at C:\testScripts\testwhois.pl line
10, near "print ""

  (Might be a runaway multi-line "" string starting on line 9)

        (Missing semicolon on previous line?)

Bareword found where operator expected at C:\testScripts\testwhois.pl
line 10, near "print "Name"

        (Do you need to predeclare print?)

String found where operator expected at C:\testScripts\testwhois.pl line
10, near "n", map { ""

Scalar found where operator expected at C:\testScripts\testwhois.pl line
10, near "", map { "    $"

        (Missing operator before     $?)

Backslash found where operator expected at C:\testScripts\testwhois.pl
line 10, near ")\"

        (Missing operator before \?)

String found where operator expected at C:\testScripts\testwhois.pl line
14, near "print ""

  (Might be a runaway multi-line "" string starting on line 10)

        (Missing semicolon on previous line?)

syntax error at C:\testScripts\testwhois.pl line 4, near "unless
($w->ok) { croak "No match "

Execution of C:\testScripts\testwhois.pl aborted due to compilation
errors.

 

 

Could some one tell me what I am doing wrong. 

 

Thank you,

Thomas