use JSON qw(to_json);

$fname = "John";



my %rec_hash = (firstname => $fname);
my $json = to_json  \%rec_hash;
print "$json\n";