use Tie::LogFile;
  my $logfile = '/var/log/foo';
  
  tie(*LOG, 'Tie::LogFile', $logfile,
        format  => '%c (%p) [%d] %m',
        tformat => '%X %x')           or die $!;
        
  open(DATEI,"<$datei") or print LOG $!; # hier bei Fehler in die LOG-Datei schreiben...
  #...
  close DATEI or print LOG $!;
  
  close(LOG) or die "Couldn't close $logfile\n";