print "body-table is:", Dumper($response->{body}->{table}), "\n";
print "==================================================================\n";
my %rec;
for (@{ $response->{body}{table} }) {
  print "Data Record Found - Body Table \n";
  my ($key) = grep $_ ne 'content', keys(%{$_->{tr}{td}});
  my $val = $_->{tr}{td}{$key};
  $rec{$key} = $val;
}
print "rec is:", Dumper($rec), "\n";