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

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