use strict;
use warnings;
use 5.012;

# Add some data to the datastore
my %failed_jobs;
dbmopen %failed_jobs, './failed_jobs', 0666;
$failed_jobs{'job_1234'} = 1;
dbmclose %failed_jobs;

# Now see if the data persisted
my %check_failures;
dbmopen %check_failures, './failed_jobs', 0666;
for my $job (keys %check_failures) {
    say "$job = $check_failures{$job}";
}
dbmclose %failed_jobs;