my $input;

do {
    print "Please enter a number in the range 1 .. 10: ";
    chomp( $input = <STDIN> );
} until ( $input !~ /\D/ ) and ( $input >= 1 ) and ( $input <= 10 );
[download]

$input_var = 0 ; # to get the loop executed at least once

while( ($input_var < 1) && ($input_var > 10) )
{
print "please input the number ... : ";
$input_var = <STDIN>;
}

# do your stuff with $input_var
# output result
[download]

{
    print "Give me a number:";
    $num = <STDIN>;
    if ($num < 1 or $num > 10) {
        print "try again\n";
        redo;
    }
}
print "OK\n";
[download]

#!/usr/bin/perl -w
use strict;

my $num;

while() {
  print 'Enter a number between 1 and 10 (inclusive): ';
  chomp( $num = <STDIN> );

  if( $num gt "9" ) {
    print "Numbers only. That was a string!\n";
    next;
  }

  if( $num < 1 || $num > 10 ) {
    print "Please enter a value greater than one or less than 10\n";
    next;
  }

  print "Thank you. You entered $num\n";
  last;
}
[download]

$num gt "9"
[download]

That made me blink for a second before I realized what was going on. Then I noticed you're missing the other half of the condition ($num lt "0").

You'd do better to check whether non-digits match in $num:

$num =~ /\D/
[download]

This is self-documenting and complete.

Makeshifts last the longest.

Well, now I see why the credo of perl is TIMTOWTDI!

Thaks to everyone who provided input to this simple newbie question.

#!/usr/bin/perl

use strict;

my $Usage = "Usage: $0 N\n where N is a number between 1 and 10\n";

die $Usage unless ( @ARGV == 1 and $ARGV[0] =~ /^\d{1,2}$/
                    and $ARGV[0] > 0 and $ARGV[0] <= 10 );

# now do whatever you need to do with $ARGV[0]...
[download]

Letting the user put the information on the command line is generally easier for both the script writer (less code to write) and the user (better line editing facilities provided by the shell than by the perl script reading from STDIN, plus the ability of running your script non-interactively (e.g. from a cron job or another script). If you want to write more code to provide a better keyboard input facility for the user, you could use ReadLine. Nothing wrong at all with that -- it's excellent when you really need it, e.g. for carrying on indefinite dialogs with users, like the CPAN shell does. But if you're just dealing with something simple that can be fed in from the command line, using @ARGV is much simpler, and simpler is better.

TOP:
my $num = <STDIN>;
if( $num != 10 and $num != 0 ) #ok, a horrible condition
{
  goto TOP;
}

#rest of code
[download]

my $input;
while( $input != "good" )
{
  print "Please enter number:\n";
  $input = <STDIN>;
}

#rest of code
[download]