eval{
$obj=Win32::OLE->GetActiveObject("Expert.CoExec");
 
};
if ($@||Win32::OLE->LastError()) {
  die "Can not start Expert";
     }

@temp_array1=$obj->RemoteCallFunc("get_tradedetaile_4P_1_1",Variant(VT_DATE,$Task_ref->{Date}));