#!/usr/bin/perl -w

use CGI;
use strict;

my $cgi = new CGI; # this creates a new CGI object
my $where = $cgi->param('where');

warn $where;