Network Perl

use LWP::Simple;
use HTML::LinkExtor;
$html = get("http://www.rntsoft.com");
$link_extor = HTML::LinkExtor->new(\&handle_links);
$link_extor->parse($html);
sub handle_links
{
    ($tag, %links) = @_;
    if ($tag eq 'a') {
        foreach $key (keys %links) {
            if ($key eq 'href') {
                print "Found a hyperlink to $links{$key}.\n";
            }
        }
    }
}