FILE:
    while (defined(local $_ = readdir(LS))) {
        foreach my $file (@$exc) {
            next FILE if ($_ eq $file);
        }
        my $file = $dir . $_;
        my $append = "tar -rf $tarfile $file 2>> $ERRORFILE";
        system($append);
        print "\t$file\n";
    }