perl;
use strict;
use warnings;
use Cwd;

my $srcdir = getcwd;
require "$srcdir/include/sdi_perl_func.pl";

my $memcached_table=$ENV{'MEMCACHED_TABLE_MAPPING'} or die;
my $sdi_id = $ENV{'SDI_ID'} or die;
my $sdi_type = $ENV{'SDI_TYPE'} or die;

sdi_switch_table($memcached_table);

sdi_get($sdi_type, $sdi_id);
sdi_disconnect();
EOF