my $number = <STDIN>;
say ">$number<";