#!/usr/bin/perl -n
BEGIN { print"---put ENTER for start---";  $dig = int(rand 10); };
print "put number [0 .. 9]:";
$_ = <>;
chomp;
last if $_ == $dig ? print "You winner." : ();
print $_ > $dig ? "what is more!\n" : "WHAT IS LESS\n";