#!/usr/bin/perl -w
use strict; # unbedingt benutzen... jetzt aber alle variablen mit my deklarieren
use warnings;
use DBI;
my $file = "/var/log/messages";
unless (open(FH, "<$file")){ # hier besser angeben, das Du lesen willst...
  die "error: could not '$file': $!\n"; # hier hat das letzte " gefehlt
}#if
while (defined($getline=<FH>)){
  my @line=split(/ /, $getline,8); # durch das ,8 sparst du die for-Schleife
  my $dbh = DBI->connect("dbi:mSQL:T1:fabian:3306","password","fabian");
  my $statement = "insert into fabian (month1, day1, time1, ip, port, month2, day2, time2, message) values(".join(", ", map{"'$_'"}@lines).")"; 
  my $sth=$dbh->prepare($statement);# fehler im statement beseitigt
  $sth->execute();
}#while
close (FH);