#!/usr/bin/perl

use CGI;

my $q=new CGI;

$q->param('city');

$q->('city', 'new_value');

print $q->param('city');

exit;