unless (unlink $root) {
  carp "Can't unlink file $root: $!";
  if ($force_writeable) {
    chmod $rp, $root
    or carp("and can't restore permissions to "
    . sprintf("0%o",$rp) . "\n");
  }
  last;
}