Here's something a bit different:

#!/usr/bin/perl -l

use strict;

use Net::Netmask;
use Socket;

gethostbyaddr(inet_aton($_), AF_INET) or print
        for Net::Netmask->new("81.86.0.0/16")->enumerate();
[download]

-Matt