#!/usr/bin/perl
use strict;
use WWW::Amazon::Wishlist qw(get_list COM UK);
my @wishlist;
my $name = "Ryan Underwood";
my $amazon_id = "HAAN8D5D8HC1";
my $amazonasin = "http://www.amazon.com/exec/obidos/ASIN";
@wishlist = get_list($amazon_id);
my $numitems = @wishlist;
print "Content-type: text/html\r\n\r\n";
print qq {
Amazon.com Wishlist for $name
Amazon.com Wishlist for $name ($numitems items)
Most recently added items first
};
foreach my $book (@wishlist) {
print qq {
$book->{title}
by: $book->{author}
$book->{price}
ASIN: $book->{asin}
Type: $book->{type}
};
}
print qq {
};