sub uninstall {
    my ($pkg) = @_;
    return if !installed($pkg);
    uninstall($_) for get_dependencies($pkg);
    ... uninstall $pkg here ...
}