Select Code to Download

{
   "mike":20,
   "johndeo@/test.com":test
}

use JSON;
my %data = (name => "Mike", age => 20, email => "mike@perlmonks.org", 
+pass => "IAmGroot");
print encode_json(\%data); #edited thanks to marto
__DATA__
{"age":20,"pass":"IAmGroot","email":"mike.org","name":"Mike"}