Select Code to Download

while (1) {
  print "Enter a number: ";
...
  chomp($Number);
   print "You entered - $Number.\n";
  }

use POE;
use POSIX;
...
});
$poe_kernel->run();
exit(0);