Select Code to Download

print "\nAsking user which he/she taking: ";
my $choice = <STDIN>; chomp($choice);
...
                  {
                  print "No course taken\n";
                  }