#!/usr/bin/env perl

use 5.24.0;

use Data::Dumper;
use Storable;

my $data = retrieve $ARGV[0];
my $module = $ARGV[1];

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

store $data, $ARGV[0];