#!/usr/bin/perl -w
use strict;

use WWW::Amazon::Wishlist qw(get_list COM); #version 1.4

my $my_amazon_com_id = '26Y2G652628T3';
#Your id can be found in your wishlist's (compact version) URL

 my @wishlist = get_list ($my_amazon_com_id,  COM);

 for ( 0 .. $#wishlist ) 
  {

    print"[$_]   Title :",$wishlist[$_]->{title},"\n",  
         "       Author:",$wishlist[$_]->{author},"\n", 
         "       ASIN  :",$wishlist[$_]->{asin},"\n",      
         "       Price :",$wishlist[$_]->{price},"\n",   
                   $wishlist[$_]->{type},"\n";

   }