use Data::Dumper;
use Win32::OLE;
use Win32::OLE::Variant;


$blpData = Win32::OLE->new('Bloomberg.Data.1')  or die "can NOT load the blpData" ;

print $blpData->Timeout   . "\n";

$aSec  =   Variant(VT_BSTR,  "IBM Equity");
$aFields = Variant(VT_ARRAY|VT_BSTR, 4 );

$aFields->Put(0,"NAME") ; 
$aFields->Put(1,"ID_SEDOL1") ; 
$aFields->Put(2,"ID_CUSIP") ; 
$aFields->Put(3,"ID_ISIN") ; 


$bbData = Variant(VT_EMPTY,1) ;
$plug = undef;

##@bbData = $blpData->GetHistoricalData($aSec,  $aFields,  $sDate, $eDate );


$blpData->SetProperty("SubscriptionMode", 1);
print "subMode: " , $blpData->SubscriptionMode ;

$blpData->Subscribe( $aSec,3, $aFields, $plug, $plug,  $bbData);

##  $blpData->GetData($aSec, $aFields, @plug, @plug, 1000, @bbData);

print "\nError: " . Win32::OLE->LastError  . "\n";
  #print "Array Size: " , $bbData->Dim . "\n";
  #print "Returned: " . $bbData->Get(0)  . "\n";
  
print Dumper $bbData;



  for my $e (@$bbData)   {
     my $d = $e->[0];
     print "zero:  $d->[0] "  .  "   one:  $d->[1]  \n" ;
   

        #foreach $tmp (@aDim) {
        #   print $tmp
        #   
  }





print "Array Size: " , @$bbData->Dim   . "\n";

foreach $bbData (@bbData) {
   print $bbData
   
}

print  "end"  ;