....
say 'Enter a number: ';
my $number = <STDIN>;
chomp( $number );
say $number;
....