# https://www.perlmonks.org/index.pl?node=equal+treatment
system 'clear';
print "Hello there. I'm a computer. What's your name? ";
chomp($_ = <STDIN>);
print "Hello ".$_.". You are welcome to computer land.";

while () {
  print "What would you like to do today?
  1) Say something random
  2) Make a maze
  3) Exit
  Enter your selection ";
  chomp($_ = <STDIN>);
  if    (/1/) {
    system 'say', do {
      @_ = split /\n/, do{local(@ARGV,$/)="/usr/share/dict/words";<>};
      $_[int rand@_]
    }
  }
  elsif (/2/) { print rand() < 0.5 ? '/' : '\\' for 1..3000 }
  elsif (/3/) { print "Bye"; exit }
  else        { print "Try again." }
}