#!/usr/bin/perl --
use strict; use warnings;
Main( @ARGV );
sub Main {
    my $q = CGI->new({ @_ });
    my $action = $q->param('go');
    if( !defined $action or !length $action ){
        return ShowEmployees( $q );
    } elsif( $action eq 'confirmDelete' ){
        return ConfirmDeleteEmployees( $q );
    } elsif( $action eq 'delete' ){
        return DeleteEmployees( $q );
    } else {
        return UnrecognizedAction( $q );
    }