($x)=$ENV{QUERY_STRING}=~/x=([^=]*)/;
($y)=$ENV{QUERY_STRING}=~/y=([^=]*)/;