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