Select Code to Download

use warnings;
use strict;
...
9: Payments
19: Mobile
29: Bankers

c:\@Work\Perl\monks\perlDevsWorld>perl select_1.pl
1: Recturing Svc
...
'xx' is not on the list. Please choose again.
Please choose a number from the list above: 9
You chose 9: 'Payments'