Methods => {
		'New' => {						RetType => VT_DISPATCH,
		TotalParams => 1,
		NumOptionalParams => 0,
		ParamList => [
				cm    => VT_DISPATCH ]
				},
		'readDirectory' => {RetType => VT_VARIANT,
              			    TotalParams => 1,
				    NumOptionalParams => 0,
				    ParamList => [						dir => VT_BSTR ]
				},
				
},  # end of 'Methods'

##</code><code>##

sub readDirectory
{
 my $self = shift;
 my %rlist;
 $rlist{"file1"} = '1';
 $rlist{"file1"} = '2';
 return \%rlist;
}


##</code><code>##

 my $Lista = $obj->readDirectory("txt");
    %List = %$Lista; ???????????????????????????