#!/usr/bin/perl
use strict;

my $language = Select('Select your language:', qw(English Francais));

if($language eq 'English') {
  print "Thank you!\n";
}
elsif($language eq 'Francais') {
  print "Merci!\n";
}
else {
  print "Unknown language: $language";
}

sub Select
{
  my($prompt, @choices) = @_;

  while(1) {
    my $i = 0;
    print STDERR $prompt, "\n";
    print STDERR join("\n", map{++$i.") $_"} @choices), "\n";
    my $answer = lc <STDIN>;
    chomp $answer;

    if($answer =~ /^\d+$/) {
      return $choices[$answer-1]
        if defined $choices[$answer-1];
    } else {
      my $out = [grep {lc $_ eq $answer} @choices]->[0];
      return $out if $out;
    }
  }
}