Select Code to Download

use Term::ReadKey;

...
my $line = <STDIN>; 
ReadMode 'original';
chomp($line);

use strict;

...
} 

MainLoop;