sub DESTROY { my $self =shift; local $@; if($self->{dir} and -d $self->{dir}) rmtree $self->{dir}; } } [download]
In reply to how to suppress warning from rmtree command by Anonymous Monk