use Net::Amazon; my $ua = Net::Amazon->new( token => '' ); while ( my $upc = <> ) { my $response = $ua->search( upc => $upc, mode => 'music' ); if ( $response->is_success() ) { print $response->as_string(), "\n"; } else { print "Error: ", $response->message(), "\n"; } }