This is how to do it going back to basics....

my $ips = range2list( '195.45.6.7', '195.45.6.19' );

print "$_\n" for @$ips;

sub range2list {
    use Socket;
    my ( $begin_ip, $end_ip, $max_range ) = @_;
    $max_range ||= 255;
    my $s_ip   = inet_aton($begin_ip);
    my $e_ip   = inet_aton($end_ip);
    my $s_dec  = unpack 'N', $s_ip;
    my $e_dec  = unpack 'N', $e_ip;
    # tolerate incorrect range order and flip around
    ( $s_dec, $e_dec ) = ( $e_dec, $s_dec ) if $s_dec > $e_dec;
    my $range = $e_dec - $s_dec;
    $range = $max_range if $range > $max_range;
    my @ip_list;
    for ( 0..$range ) {
        my $ip = pack 'N',$s_dec;
        push @ip_list, inet_ntoa($ip);
        $s_dec++;
    }
  return  \@ip_list;
}
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print