#!/usr/bin/perl -wT

use CGI;
use CGI::Carp qw( fatalsToBrowser );

if($q->param('name') eq "")
{
 &printForm();
 &results();
}