sub explore {
    my $obj = shift;
    print "Exploring $obj (".ref($obj).")\n";
    if( ref($obj) =~ /Win32::OLE/ ) {
	for my $key (sort keys %{$obj}) {
	    print "\t$key => ".$obj->$key."\n";
	}
    }
}