use Win32::OLE;<br>
use Win32::OLE::Variant;<br>


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

#print $blpData->Timeout   . "\n";<br>


$aSec  =   Variant(VT_BSTR,  "IBM Equity");<br>
     #@tmpArray  = ("PX_Last"); <br>
$aFields = Variant(VT_ARRAY|VT_BSTR, 1 );<br>
$aFields->Put(0, "PX_Last");<br>

$sDate =   Variant(VT_DATE,  "2007/07/01");<br>
$eDate =   Variant(VT_DATE,  "2007/07/10");<br>

$bbData = Variant(VT_EMPTY, 1);<br>

$bbData = $blpData->BLPGetHistoricalData($aSec,  $aFields,  $sDate, $eDate);<br>

print "Error: " . Win32::OLE->LastError  . "\n";<br>
  #print "Array Size: " , $bbData->Dim . "\n";<br>
print "Returned: " . $bbData->Get(0)  . "\n";<br>
  #@aDim = @bbData->Dim ;<br>

  #foreach $tmp (@aDim) {<br>
  #   print $tmp<br>
  #   <br>
  #}<br>

print  "end"  ;<br>