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