Select Code to Download

#!usr/bin/perl-w
use strict;
...
    my $key;
        while (not defined ($key = ReadKey(-1))) {  }
}