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