sub rmtree {
  my ($o, $tree) = @_;


  eval { rmtree $tree } ;

  if ($@) {
    $o->LOG('error', "$tree: $@");
  }

}

sub unlink {
  my ($o, $file) = @_;

  eval { unlink $file } ;

  if ($@) {
    $o->LOG('error', "$file: $@");
  }

}