use Net::IP;
my $ip = new Net::IP ('195.45.6.7 - 195.45.6.19') || die;
  # Loop
  do {
      print $ip->ip(), "\n";
  } while (++$ip);
__END__
195.45.6.7
195.45.6.8
195.45.6.9
195.45.6.10
195.45.6.11
195.45.6.12
195.45.6.13
195.45.6.14
195.45.6.15
195.45.6.16
195.45.6.17
195.45.6.18
195.45.6.19