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

my $ip1 = "192.168.0.24";
my $ip2 = "192.168.0.128";
my $ipaddr = "192.168.0.238";

sub ip2hex($) {
    sprintf("%02x%02x%02x%02x", split(/\./, $_[0]));
}

if ((ip2hex($ipaddr) ge ip2hex($ip1)) && ip2hex($ipaddr) le ip2hex($ip2)) {
    printf("範囲内です");
} else {
    printf("範囲内じゃないです");
}