print &CheckTempDB('temp.var',1,'bla@laber.de]bla@laber.de','3216548958');

sub CheckTempDB {
 my ($datei,$flock,$linkmail,$linkid) = @_;
 # Templist öffnen und einlesen
 open (DATEI,$datei) || die 'Unable to open the templist file for reading';
  flock (DATEI,2) if $flock;
  chomp (my @zeilen = <DATEI>);
 close (DATEI);
 # Templist sortieren und auf Strings rausfiltern
 foreach my $zeile (@zeilen) {
  my ($mail,$id) = split(/\|/,$zeile);
  return 'ok' if ($mail eq $linkmail) && ($id eq $linkid);
 }
 return 'error';
}