sub recursive_remove {
    my($dir) = @_;
    local(*DIR);
    opendir(DIR, $dir) || die "Error: $dir $!\n";
...