Select Code to Download

use strict;
use warnings;

...
  chomp ( my $choice = <STDIN> ); # <- Problem here!
  return $choice;
}