use LWP::Simple;
my $source = get("http://whatever.url.you/want/to/view.html");

##</code><code>##

#!/usr/bin/perl -w

use strict;
use LWP::Simple;
use HTML::Parser;

my $source = get("http://www.perlmonks.org");

my $parser = HTML::Parser->new();
$parser->handler( start => \&function, 'token0, attr');
$parser->parse($source);

sub function {
  my ($tag_name, $attr_ref) = @_;
  if ($tag_name eq 'a') {
    my %attr = %$attr_ref;
    print $attr{href}, "\n";
  }
}