#!/usr/bin/perl

use CGI qw(:standard);

my $action = param('action'); $action ||= 'TakeQuiz';
if    ($action eq 'CreateQuiz')  { CreateQuiz(); }
elsif ($action eq 'StoreQuiz' )  { StoreQuiz(); }
elsif ($action eq 'ShowResults') { ShowResults(); }
else { TakeQuiz(); }             # default action
exit;