sub multi_dir {
    ...
            print "CHILD($$): system() finished";
            exit;   # <<<=== PROBLEM FIXED!
        }
    }
}