use warnings;
use strict;

my $code = 
{
"StatusCode"=> 0,
"StatusInfo"=> "Command Processed OK",
"PageNumber"=> 0,
"TotalPageCount"=> 1,
"TotalProductCount"=> 1,
"PageProductCount"=> 1,
"Products"=>
[
{
"BaseProductId"=> "50043662",
"EANBarcode"=> "5000175411118",
"CheaperAlternativeProductId"=> "",
"HealthierAlternativeProductId"=> "",
"ImagePath"=> "http=>//img.tesco.com/Groceries/pi/118/5000175411118/IDShot_90x90.jpg",
"MaximumPurchaseQuantity"=> 99,
"Name"=> "Oxo 12 Chicken Stock Cubes 71G",
"OfferPromotion"=> "Price Drop Was £1.13 Now £1.00 ",
"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",
"Price"=> 1,
"PriceDescription"=> "£1.41 each",
"ProductId"=> "254881114",
"ProductType"=> "QuantityOnlyProduct",
"UnitPrice"=> 1.41,
"UnitType"=> "100g"
}
]
}
;

print $code->{Products}[0]{ProductId},"\n";

__END__

254881114