Perl 서브넷마스크 체크

my $remote_ip = new NetAddr::IP $ENV{'REMOTE_ADDR'};        # 접속중인 IP
if ($remote_ip->within(new NetAddr::IP {서브넷마스크 IP} )) {
        warn "서브넷 범위 안";
}
else {
        warn "서브넷 범위 밖";
}