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";
	}
    }
}

##</code><code>##

explore( $datasheet );

##</code><code>##

        Application => Win32::OLE=HASH(0x385ca80)
        Cells => Win32::OLE=HASH(0x3491660)
        Columns => Win32::OLE=HASH(0x3491678)
        Creator => 1297303378
        Font => Win32::OLE=HASH(0x34915a0)
        Height => 0
        Left => 4359
        Parent => Win32::OLE=HASH(0x3491720)
        Range =>
        Rows => Win32::OLE=HASH(0x3491708)
        Top => 4337
        Width => 0