#!/usr/bin/perl
use warnings;
use strict;
use WebService::Tesco::API;
use JSON;
use Data::Dumper


my $tesco = WebService::Tesco::API->new( app_key => 'xxxxx', developer_key => 'xxxx', debug => 1, );

my $result = $tesco->login({ email => 'xxxxx@yahoo.co.uk', password => 'xxxxx', });


print "Scan Item....";
my $pn = <>;                     				     #Scan Bar Code
chop ($pn);                                                          #remove %OA from end of scan code

my $code = $tesco->product_search({ searchtext => $pn, extendedinfo => 'N' });

print Dumper ($code);

##</code><code>##

"WebService::Tesco::API=HASH(0xf66940)" is not exported by the Data::Dumper module
Can't continue after import errors at tesco_json_dumper.pl line 9.
BEGIN failed--compilation aborted at tesco_json_dumper.pl line 9.