$ua = LWP::UserAgent->new();
                   $request = HTTP::Request->new('GET', $url);
                   $response = $ua->request($request);
                   if ($response->is_success) {
                        print OUT $response->content();
                   }
                   else {
                         print STDERR $response->status_line, "\n";
                   }
           }

<a class="res" href=....>

#! /usr/bin/perl
use strict;
use warnings;
use HTML::Parser;

my @links;
my $file = "my_file.html";

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse_file($file);

foreach my $link(@links){
  print "Linktext: ",$link->[1],"\tURL: ",$link->[0],"\n";
}

sub start_handler{
  return if(shift ne 'a');
  my ($class) = shift->{href};
  my $self = shift;
  my $text;
  $self->handler(text => sub{$text = shift;},"dtext");
  $self->handler(end => sub{push(@links,[$class,$text]) if(shift eq 'a')},"tagname");
}

<a class="res" href="http://...">

class="res"

#! /usr/bin/perl
use strict;
use warnings;
use HTML::Parser;

my @links;
my $file = "my_test.html";

my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,attr,self");
$p->parse_file($file);

foreach my $link(@links){
 print "Linktext: ",$link->[1],"\tURL: ",$link->[0],"\n";
}

sub start_handler{
    my ($tagname,$attr,$self) = @_;
    return unless($tagname eq 'a' and defined $attr);
    my ($url,$class) = @{$attr}{qw/href class/};
    my $text;
    $self->handler(text => sub{$text = shift;},"dtext");
    $self->handler(end => sub{
                             my ($tag) = @_;
                             if($tag eq 'a' and defined $class and $class eq 'res'){
                                 push(@links,[$url,$text]);
                             }
                          },"tagname");
}