Select Code to Download

package MySample;
sub build_dropdown
...
    }
    return join "\n" , @xml;
}

print HtmlDropDowns::build_dropdown(undef,
  sub { 1 .. 10 },
...
  'Pick a number from 1 to 10',
  5,
 );