#!/usr/bin/perl
use warnings;
use strict;
use NetAddr::IP;


my $ip = new NetAddr::IP ('192.168.8.205','255.255.0.0');

my $network = $ip->network;

print $network;

##</code><code>##

grep> cd pub
grep> more beer