reality_test( $test_me, '$test_me', $min, $max );

##</code><code>##

isInRange( $cntFiles, 'Number of Files',
    $minFiles, $maxFiles );

##</code><code>##

isInRange( *test_me, $min, $max );
sub isInRange {
    my( $glob, $min, $max )= @_;
    my $val= $$glob;
    my $name= substr($glob,1);
    if(  $val < $min  ) {
        die "\$$name is less than $min.\n"
    } elsif(  $max < $val  ) {
        die "\$$name is more than $max.\n"
    } else {
        return 1;
    }
    return !1;
}