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

# Code to log in removed

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