QCV_Init
{
  struct InitParam => { map { $_ => '$'} qw(MsgIdSingleStep MsgIdBreakpoint MsgIdStorage                                      MsgIdState MsgIdWarning MsgIdCPUStopped)};
  my $IP = InitParam->new();
$IP->MsgIdSingleStep(0);
$IP->MsgIdBreakpoint(1);
$IP->MsgIdStorage(2);
$IP->MsgIdState(3);
$IP->MsgIdWarning(4);
$IP->MsgIdCPUStopped(5);

   my $return = $QVC{Init}->Call(callback(),\$IP);
}