Select Code to Download

#!/usr/bin/ksh

...
      *)        print "???"; break;;
   esac
done

no strict;

...

   $$var = $list[$ans-1] || 'none';
}