#!/usr/bin/env perl

use strict;
use warnings;

use Net::CIDR;

my @ips = ('192.168.0.23', '20.30.40.50');

my @uninetworks = ('192.168.0.0/16', '10.0.0.0/8');

foreach my $ip (@ips) {
    if(Net::CIDR::cidrlookup($ip, @uninetworks)) {
        print "$ip is at university network.\n";
    } else {
        print "$ip is unsafe!!!1!\n"
    }
}