Select Code to Download

sub prepare {
  my $class = shift;
  my $quiz = bless { }, $class;
...
  #  Perform
  &{$act}($quiz);
}

  my %valid_question = ( 
            'boolean' => \&parse_boolean,
            'multiple' => \&parse_multiple,
...
               );

my $parse_type = $valid_question{ lc( $input ) };