Select Code to Download

sub DESTROY {
    my $self = shift;
    eval { store $self, DATA_FILE };
    die $@ if $@;
}

...
sub logcroak {
...
...
open(FILE, ">$file") || logcroak "can't create $file: $!";
...