#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use Net::Ping;
use Net::IP;

unless(@ARGV) {
   print "Usage: $0 start [end]";
}

my $ip;

if(@ARGV == 2) {
   $ip = new Net::IP("$ARGV[0] - $ARGV[1]") or die $!;
}
else {
   $ip = new Net::IP($ARGV[0]);
}

my $dbi = DBI->connect("DBI:mysql:DATABASE", "USER", "PASS") or die DBI->errstr;

my $ping = Net::Ping->new();

do {
   if($ping->ping($ip)) {
       $dbi->do("INSERT INTO hosts VALUES ($ip)");
   }
} while(++$ip);

$dbi->disconnect;

#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;

my $server = IO::Socket::INET->new(
   Listen   => 10,
   LocalAddr   => 'your.host.de', # host oder ip auf der gelauscht werden soll
   LocalPort   => 12345,
   Proto   => 'tcp', # wahlweise auch udp
) or die $!;

open(my $file, ">", "/tmp/some_file.txt") or die $!;

while(my $client = $server->accept()) {
   if(fork() == 0) {
      my @data = <$client>;
      print $file @data;
   }
}
close($file);