Help for this page
if ( $pAddr !~ /^127\.0\.0\./ && $pAddr !~ /^10\.10\.10\.\d+/ && $pAddr !~ /^192\.168\.0\.\d+/ )
#!/usr/bin/perl -w use strict; ... } }