#!/usr/bin/perl
use strict;
use LWP::Simple;
print "test_get.pl\n";
my $amazon_url = 
q{http://www.amazon.com/exec/obidos/ASIN/0394756673/ref=nosim/bookreadersre-20};
my $page = get ($amazon_url);
open FILE , '>temp2' or die "Cannot open temp2\n";
print FILE $page;

my $sought_string = q{offer-listing};
if ($page =~ /$sought_string/){
    print "Found it\n";
}
else {
    print "No luck\n";
}