sub DESTROY {
	my $self = shift;
	store $self, DATA_FILE;
}