use IO::File;
use Data::Dumper;
use Win32::ODBC;
use Win32::OLE;
use Win32::OLE::Variant;



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


$aSec = Variant(VT_BSTR, "MMM US equity");
$aFields = Variant(VT_ARRAY|VT_BSTR, 1);

$aFields->Put(0,"RELATED_EQUITIES") ; 

$bbData = Variant(VT_EMPTY,1) ;

$bbData = $blpData->BLPSubscribe($aSec, $aFields  );
print "Error: " . Win32::OLE->LastError  . "\n";
      
#** 
print  " ** ** ** Dumper  "  . "\n";
print Dumper $bbData;

print "\n\nbbdate 0 0 "   . "\n";
print  $bbData->[0][0]. "\n";

print  " ** ** ** Dumper  bbdata 0 0 "  . "\n";
print Dumper $bbData->[0][0] ;


#**print "\n\nbbdata 0 0 0 "   . "\n";
#**print  $bbDate->[0][0][0]   ;

#**for my $e (@$bbDate->[0][0])  {
#**   for my $e2 (@$e ) {
#**       print "e2: " . $e2   . "\n";
#**   }
#**}