#!/usr/bin/env perl

use 5.24.0;

use Data::Dumper;
use Storable;

my $data = retrieve 'everything.stor';
my $module = $ARGV[0];

$data->{jobstatus}{$module}={tested => 2, status => "manual failure"};

store $data, 'everything.stor';