A thought:

sub rmtree {
   trashIt(@_, "rmtree");
}

sub unlink {
  trashIt(@_, "unlink");
}

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

  eval { $cmd $file } ;

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

And I am sure you could do something with closures....