Select Code to Download

use Term::ReadKey;
use Time::HiRes qw(time);
...
    }
    print "\n\n";
}

while ( (not defined ($key = ReadKey( -1 ) ) ) and (time < $wait_until
+) ) 
{
}