Test: {
my $number = <STDIN>;
chomp $number;