#!/usr/bin/perl

use strict;
use warnings;

my %dispatch = (
  table1 => \&_upload_table1,
  table2 => \&_upload_table1,
);
 
my $tablename = cgi->param('tablename');

die qq{bad param\n} unless exists $dispatch{$tablename};

$dispatch{$tablename}->();
 
sub _upload_table1 {

}

sub _upload_table2 {
}