...
my $dbh = DBI->connect("dbi:mSQL:T1:fabian:3306", "password", "fabian")
  or die "Kann Datenbank nicht oeffnen: " . DBI->errstr();
my $statement = 'insert into fabian (month1, day1, time1, ip, port, month2, day2, time2, message) values (?,?,?,?,?,?,?,?,?)'; 
my $sth=$dbh->prepare($statement) or die "Prepare $statement fehlgeschlagen: ".$dbh->errstr();

while (defined(my $getline=<FH>)) {
    my @lines = split(/ /, $getline, 8);
    $sth->execute(@lines)
      or warn "Fehler beim Schreiben in Datenbank: " . $sth->errstr();
}
$dbh->disconnect();
...