SYNOPSIS

use Wx::Perl::Dialog::SingleChoice;
print Wx::Perl::Dialog::SingleChoice::dialog( title => 'Select one', values => ['a'..'d'] ), "\n";