Select Code to Download

if ( $pAddr !~ /^127\.0\.0\./ 
&& $pAddr !~ /^10\.10\.10\.\d+/
&& $pAddr !~ /^192\.168\.0\.\d+/ )

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