print $q->header();
print $dispatch->{$form->{action}}
      ? $dispatch->{$form->{action}}()
      : $dispatch->{'default'}();
exit;