Any reason you couldn't do this?

sub trash
{
  my ($o, $item) = @_;
  eval ( ( -d $item ) ? rmtree ( $item ) : unlink ( $item ) );
  $o->log ( 'error', "$item": $@" ) if ( $@ );
}
[download]