use strict;
use warnings;

my $name = 'mike';
my $age = "20";
my $email = "johndeo\@test.com";
my $pass = "test";
 
my $resp = 
"{
    \"$name\": $age,
    \"$email\": \"$pass\"
}";
 
print $resp;