$VAR1 = {
          'StatusCode' => 0,
          'Products' => [
                          {
                            'UnitType' => '100g',
                            'HealthierAlternativeProductId' => '',
                            'OfferPromotion' => "Price Drop Was \x{a3}1.13 Now \x{a3}1.00 ",
                            'ProductId' => '254881114',
                            'EANBarcode' => '5000175411118',
                            'MaximumPurchaseQuantity' => 99,
                            'CheaperAlternativeProductId' => '',
                            'ProductType' => 'QuantityOnlyProduct',
                            'PriceDescription' => "\x{a3}1.41 each",
                            'UnitPrice' => '1.41',
                            'ImagePath' => 'http://img.tesco.com/Groceries/pi/118/5000175411118/IDShot_90x90.jpg',
                            'Price' => 1,
                            'BaseProductId' => '50043662',
                            'Name' => 'Oxo 12 Chicken Stock Cubes 71G',
                            'OfferValidity' => 'valid from 30/7/2012 until 9/9/2012',
                            'OfferLabelImagePath' => 'http://www.tesco.com/Groceries/UIAssets/I/Sites/Retail/Superstore/Online/Product/pos/save.png'
                          }
                        ],
          'TotalProductCount' => 1,
          'PageNumber' => 0,
          'TotalPageCount' => 1,
          'StatusInfo' => 'Command Processed OK',
          'PageProductCount' => 1
        };

##</code><code>##

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