my $query_srting = $ENV{QUERY_SRING};
my ( $query, $action ) = split /=/, $query_string;