perl;
use Cwd;
use strict;
use warnings;
my $srcdir = getcwd;
require "$srcdir/include/sdi_perl_func.pl";
my $memcached_table=$ENV{'MEMCACHED_TABLE_MAPPING'} or die;
sdi_switch_table($memcached_table);
sdi_create_index();
sdi_disconnect();
EOF