#!/usr/bin/perl

use JSON qw(decode_json);
use Data::Dumper;
my $var = { 'POSTDATA' => '{ "emailid" : "test@test.com", "name" : "John", "id" : "ID1020", }' };
my $postdata = $var->{POSTDATA};
my $json_decode = decode_json($postdata);
print Dumper($json_decode);