use CGI;

my $q = CGI->new();

print $q->header();

if ($q->param('question'))
{
     print finished_form();
}
else
{
     print ask_question_form();
}