Select Code to Download

Dumper($response->{body}->{table})

print "body-table is:", Dumper($response->{body}->{table}), "\n";
print "===============================================================
+===\n";
...
  $rec{$key} = $val;
}
print "rec is:", Dumper($rec), "\n";

body-table is:$VAR1 = [
          {
...
Data Record Found - Body Table
Data Record Found - Body Table
rec is:$VAR1 = undef;