Select Code to Download

sub post_json {
    my ($mech, $json, $url) = @_;
...
    $req->content($json);
    return $mech->request($req);
}

for my $key (keys %ff_header) {
    $mech->delete_header($key);
    $mech->add_header($key => $ff_header{$key});
}