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

Writing an HTML parser by hand is very non-trivial... I'd look at HTML::Parser (again, at CPAN) and see if that'll make your life easier. I've not really used HTML::Parser before, but, by looking at the documentation and playing around for the last 15 minutes, it appears you'd want to do something like the following:

#!/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";
  }
}
[download]

#!/usr/bin/perl

use LWP::Simple 

qw(get);
  
  sub Get_Page 
  {
          
               my ($url,%option) = @_ ;
           ## INTRODUCE LOGIN AND PASS IF IT'S PRECISED
           if (exists($option{login}))
           {
                       $url =~ s/http:\/\///si;
                       $url =                                         
+                "http://$option{'login'}:$option{'pass'}\@$url";
           }
             return get($url); 
  }
  
  ## THE URL YOU WANT THE SOURCE CODE 
  my $url = ‘http://www.pipo.com/index.html’; 
   
  ## THE CALL OF KTHULU 
  my $contenu = Get_Page("http://anon.free.anonymizer.com/$url");
  
  ## PRINT THE SOURCE CODE
  print $contenu;
[download]

#!/usr/bin/perl -w
use strict;
use HTML::TokeParser;
use LWP::Simple;
my $page=get ('http:web.site.here/file.html');
unless (defined ($page)) {die "Unable to retrive page:$!\n";}
my @links; #multi demantional array to hold links
my $cnt = 0;
my $p = HTML::TokeParser->new(\$page);
while (my $token = $p->get_tag("a")) {
   my $url = $token->[1]{href} || "-";
   my $text = $p->get_trimmed_text("/a");
   $links[$cnt][0] = $text;
   $links[$cnt][1] = $url;
   $cnt++;
  }
#sample of accessing links array
$cnt =0;
my $size = @links;
while ($cnt < $size) {
   print "Text:$links[$cnt][0]\tURL:$links[$cnt][1]\n";
   $cnt++;
}
exit();
[download]

For the question SimpleLinkExtor is a better solution. My code is acutally from a script that ends up doing some parsing on the text part to extract a date and then sorting the array by date. I chopped it up to be easier to get teh meaning of.