This script lists all links on a page. How do I get it to list all links on this page that are not working??

use HTML::LinkExtor; 
use LWP::Simple; 
                                   
$p = HTML::LinkExtor->new(\&cb, "http://www.perl.org"); 
sub cb { 
my($tag, %links) = @_; 
print "$tag @{[%links]}\n"; 
} 
getstore("http://www.perl.org/", "index.html"); 
$p->parse_file("index.html");
[download]