use LWP::Simple;
use URI::Escape;
use HTML::TreeBuilder;
use Try::Tiny;

my $look_for = "perl";

my $contents
  = get "http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Dstripbooks&field-keywords="
  . uri_escape($look_for);
        

my $html = HTML::TreeBuilder->new_from_content($contents);
for my $item ($html->look_down(id => qr/result_\d+/)) {
    # $item->dump;      # find out structure of HTML
    my $author = try { $item->look_down(class => 'ptBrand')->as_trimmed_text };
 
    print "$author\n";
}
$html->delete;