sub utility
{
  my $self = shift;
  my $query = CGI->new('rm=new_mode');
  ref($self)->new->run(QUERY=>$query);
  exit;
}