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