Perlでケータイ電話からのアクセスかどうかを判別したいと考えています。

UserAgentは簡単に偽装できるので、IPアドレスベースの識別をしたいのですが、
アクセス者のIPアドレスがサブネットマスク形式のアドレスで指定した条件に一致しているかどうかを
確認するモジュールはないでしょうか？

つまり、

my $ipType = &IP_Check('127.0.0.1', '127.0.0.0/24');

if ($ipType) {
　print 'ループバックアドレスです。' . "\n";
}

みたいなことができる関数が欲しいです。

よろしくお願いします。