use CGI;

my $cgi = new CGI;

my $where = $cgi->param('where');
print $where . "\n";