Select Code to Download

#!/usr/local/bin/perl
use Term::ReadKey;
...
   select((select(STDOUT), $| = 1)[0]); #flush STDOUT buffer
}
ReadMode 0; # Reset tty mode before exiting