use of uninitialized value in subroutine entry at ~~ line 12

[koonom]

#!/usr/bin/perl -w

use LWP::Simple;
use HTML::LinkExtor;

$URL = get("http//www.nytimes.com");

#open (FILE, ">file.txt");

$LinkExtor = HTML::LinkExtor->new(\&link);

$LinkExtor->parse($URL);

sub links
{
    ($tag, %links) = @_;
    if ($tag eq "a"){
        foreach $key (keys %links){
            if ($key eq "href"){
                print "links{$key}\n";
            }
        }
    }
}

and then comes the error:use of uninitialized value in subroutine
entry at ~~ line 12
what does it mean actually?


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