my $input = <STDIN>;
$input = 10 if $input > 10;

##</code><code>##

$input = 1 unless $input;