use warnings;
use strict;
use Acme::Tools qw(between);

my $ref = 7;
if (between($ref, 1, 8)) {
    print "between\n";
}