Select Code to Download

if ($choice ne 'a', 'r', 'o', 'd', 'e') {
     print "Invalid choice, TRY AGAIN!\n";
}

# Very explicit:
if ($choice ne 'a' && $choice ne 'r' && $choice ne 'o' && $choice ne '
+d' && $choice ne 'e') {
...
     print "Invalid choice, TRY AGAIN!\n";
}