доброго времени суток!

я новичек в perl. есть одна задача, нашел под нее модуль, вот только с модулем с этим никак не получается разобраться
в объектно ориентированном програмировании я не силен:(

модуль Net::Netmask

интересует функция cidrs2inverse

вот мой скрипт

#!/usr/bin/perl -w


use Net::Netmask;
use strict;

my $allnet = '10.0.0.0/8';
my @blocks = ('10.1.4.0/24','10.1.2.128/25','10.1.9.32/27');

print cidrs2inverse($allnet, @blocks);


и вот что при запуске вываливает
Can't use string ("10.1.4.0/24") as a HASH ref while "strict refs" in use at /usr/local/lib/perl5/site_perl/5.8.8/Net/Netmask.pm line 578.

не пойму как ему нужно отдать блок лист :(

# perl -MNet::Netmask -le '$block = new Net::Netmask (shift) or die $!; print join "\n",$block->cidrs2inverse (map { new Net::Netmask ($_) } @ARGV)' 10.0.0.0/8 10.1.4.0/24 10.1.2.128/25 10.1.9.32/27
10.0.0.0/16
10.1.0.0/23
10.1.2.0/25
10.1.3.0/24
10.1.5.0/24
10.1.6.0/23
10.1.8.0/24
10.1.9.0/27
10.1.9.64/26
10.1.9.128/25
10.1.10.0/23
10.1.12.0/22
10.1.16.0/20
10.1.32.0/19
10.1.64.0/18
10.1.128.0/17
10.2.0.0/15
10.4.0.0/14
10.8.0.0/13
10.16.0.0/12
10.32.0.0/11
10.64.0.0/10
10.128.0.0/9

Огромное спасибо!