use strict;
use Win32::OLE::Const;
Win32::OLE::Const->EnumTypeLibs(\&mylib);;

sub mylib {
  return unless $_[1] =~ /Excel/;
  print join " ",$_[1],$_[4],"\n";
}
[download]

you should get a result like this (14.0 is 2010 , it would probably be 15.0 for 2013)

Microsoft Excel 14.0 Object Library C:\Program Files (x86)\Microsoft Office\Office14\EXCEL.EXE