Select Code to Download

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

while (1) {
    $Number = <STDIN>;
    chomp($Number);
    print "You entered - $Number.\n";
}