There are tons of ways to webrobot more easily. In quickndirty scripts I recommend the use of lwp-request or wget. Otherwise use LWP::Simple or for the heavy stuff use WWW::Mechanize ( or WWW::Mechanize::Shell which simplifies script development ).
Have a look:

#!/usr/bin/perl
# usage: $0 <ARTIST> <#PAGES>

use strict;
use warnings;
use LWP::Simple;

my $artist = shift || "Moby";
my $pages  = shift || 1; # increase if artist is listed with more than
+ 1 page
for my $pageno ( 0 .. $pages ) {
  my $page = get(
    qq(http://riaaradar.com/search.asp?keyword=$artist&page=$pageno)
  );

  my %record;
  for my $line ( split /\n/, $page ) {

    if ( $line =~ m{<input type="hidden" name="([^"]+)" value="([^"]+)
+} ) {
        $record{$1} = $2;
    }

    if ( $record{result} ) {
        if ( $record{artist} =~ /$artist/o ) {
            print "$_ $record{$_}\n" for (qw(artist album result));
            print "\n";
        }
        %record = ();
    }

  }
}
[download]