Help for this page
package MySample; sub build_dropdown ... } return join "\n" , @xml; }
package myBox; ... return $_[0]->{'__keys'}{$_[1]} ; } 1;
my $box = myBox->new(); print &HtmlDropDowns::build_dropdown( $box , 'get__keys' , 'get__t +extforkey' , 'select a header' , 2 );