extracting name value pair from the querystring in HTML document

#!/usr/bin/perl
 
use strict;
use warnings;
use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);  # remove this when script goes into #production
 
my $query = new CGI;
my %formdata = $query->Vars;
my $cand = $formdata{'getcand'};
 
 
print "Location:http://www.mysite.com/addedit.html?id=$cand\n\n";
 
============addedit.html=================
 
<script type="text/javascript">
<!--
 
function querySt(ji) {
hu = window.location.search.substring(1);
gy = hu.split("&");
for (i=0;i<gy.length;i++) {
ft = gy[i].split("=");
if (ft[0] == ji) {
return ft[1];
}
}
}
var canid = querySt("id");