Select Code to Download

    Methods => {
        'New' => {                        RetType => VT_DISPATCH,
...
                },
                
},  # end of 'Methods'

sub readDirectory
{
...
 return \%rlist;
}

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