use strict;
use warnings;
use JSON::PP;

my $name = 'mike';
my $age = "20";
my $email = "johndeo\@test.com";
my $pass = "test";

my $resp = JSON::PP->new->encode({
  $name  => $age,
  $email => $pass,
});
 
print $resp;