print 'Komprimiere Verzeichnis ' . $strScanDir . ".\n";
chdir ($strScanDir)
    or die 'FEHLER: chdir zu ' . $strScanDir . ' nicht möglich: ' . $!;
my $tar = Archive::Tar->new();
$tar->add_files (@arrFiles)
    or logMessage ('FEHLER: Inhalt von Verzeichnis ' . $strScanDir . ' konnte nicht zum Archiv hinzugefügt werden: ' . $!);
$tar->write ($strUsbstick . $strScanDir . '/backup.tgz', 6)
    or logMessage ('FEHLER: Archiv von Verzeichnis ' . $strScanDir . ' konnte nicht geschrieben werden: ' . $!);