sub DESTROY {

my $self =shift;

local $@;

if($self->{dir} and -d $self->{dir})
    rmtree $self->{dir};
}
}