So, you wanted to keep reading from STDIN for sake of easy checking with different inputs. In that case, it is smart to use the debugging capabilities of CGI.pm.

use CGI qw(:debug);
chomp (my $choice = param('choice'));
[download]

---