Select Code to Download

use strict ; use warnings ;

...
  my $ch = '' ;
  while ($ch !~ m/\./) { sysread STDIN, $ch, 1 ; } ;
} ;