#!/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]...