Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $pid = $data->{Products}[0]{ProductId},"\n";

print $pid,"\n";

Useless use of a constant (
) in void context at tesc_json1.pl line 22.
...
]
}
malformed JSON string, neither array, object, number, string or atom, 
+at character offset 0 (before "HASH(0x1610440)") at tesc_json1.pl lin
+e 20, <> line 1.