Select Code to Download

$VAR1 = {
          'StatusCode' => 0,
...
          'StatusInfo' => 'Command Processed OK',
          'PageProductCount' => 1
        };

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