use Tcl;
our $interp = Tcl->new;
$interp->Eval('source Tools/rpc.tcl');
$interp->Eval('source Tools/dp_atexit.tcl');
$interp->Eval('source Tools/dp_atclose.tcl');
$interp->Eval('load Tools/dp42.dll');
$interp->Eval('set tcl_version [info patchlevel]');
my $tcl_version= $interp->GetVar('tcl_version');
print "Version of TCL: '$tcl_version'\n";
$interp->Eval('set iw [dp_MakeRPCClient <IP> <port>]');