for my $file (keys %INC) {
        (my $class = $file) =~ s!/!::!g;
        $class =~ s/\.pm$//;

        if ($class->can('clean_up')) {
            $class->clean_up;
        }
    }