#!/usr/bin/perl -w use strict; use CGI; use JSON; use Data::Dumper; my $q = new CGI; print $q->header(); my $val = $q->param('args'); my @vals = split(//, $val); my $hash; map { $hash->{$_} = chr(ord($_)+1) } @vals; my $json = objToJson($hash); print "var jsonObj = $json";