[Gelöst] Perl: Fehler beim Aufruf der log() - Funktion

#!/usr/bin/perl

use Net::IP;

my $ip = new Net::IP('192.168.0/24') or die(Net::IP::Error());

#Usage() if (@ARGV != 0 and $ARGV[0] eq "-h");

sub get_hosts{

   return new Net::IP($_[0]->last_ip())->intip() - $_[0]->intip();
   }

print get_hosts($ip)."\n";

# Berechnung des ld()
print log(get_hosts($ip))/log(2);

# Lange schreibweise, vllt stimmt ja an der Funktion was nicht
print log((new Net::IP($ip->last_ip())->intip()) - ($ip->intip()));

Can't use an undefined value as an ARRAY reference at /usr/share/perl/5.8/Math/BigInt/Calc.pm line 1376.

my $ip = new Net::IP('192.168.0.0-192.168.0.255')

last_int()

20:29 ichi:/dev/shm > perl -d x.pl 

Loading DB routines from perl5db.pl version 1.28
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(x.pl:6): my $ip = new Net::IP('192.168.0/24') or die(Net::IP::Error());
  DB<1> n
main::(x.pl:15):        print get_hosts($ip)."\n";
  DB<1> 
255
main::(x.pl:18):        print log(get_hosts($ip))/log(2);
  DB<1> x $p = &get_hosts($ip)
0  Math::BigInt=HASH(0x86598e4)
   'sign' => '+'
   'value' => ARRAY(0x8659920)
      0  255
  DB<2> x log($p)
Can't use an undefined value as an ARRAY reference at /usr/lib/perl5/5.8.8/Math/BigInt/Calc.pm line 1338.