Select Code to Download

use Data::Dumper;

...
    $db->{key} = {};
    print "Dump: ", Dumper($db);
}

use strict;
use warnings;
...
    print "\nDeleting $db_file\n";
    unlink( $db_file ) or warn $!;      # succeeds
}