($t[0] == $s[0] && $t[0] == $e[0]) ? $r[0] = 1 : $r[0] = 0;
   ($t[1] == $s[1] && $t[1] == $e[1]) ? $r[1] = 1 : $r[1] = 0;
   ($t[2] == $s[2] && $t[2] == $e[2]) ? $r[2] = 1 : $r[2] = 0;
   ($t[3] == $s[3] && $t[3] == $e[3]) ? $r[3] = 1 : $r[3] = 0;

##</code><code>##

   $r[0] = $t[0] == $s[0] && $t[0] == $e[0] ? 1 : 0;
   $r[1] = $t[1] == $s[1] && $t[1] == $e[1] ? 1 : 0;
   $r[2] = $t[2] == $s[2] && $t[2] == $e[2] ? 1 : 0;
   $r[3] = $t[3] == $s[3] && $t[3] == $e[3] ? 1 : 0;

##</code><code>##

use Socket;

sub cmp_ips {
    my $t = inet_aton( $_[0] ) or do { warn "$_[0] is not a valid IP address.\n"; return 0 };
    my $s = inet_aton( $_[1] ) or do { warn "$_[1] is not a valid IP address.\n"; return 0 };
    my $e = inet_aton( $_[2] ) or do { warn "$_[2] is not a valid IP address.\n"; return 0 };

    return 1 if $t eq $s && $t eq $e;

    return 1 if $t ge $s && $t le $e && ( $t ne $s || $t ne $e );

    return 0;
    }