my $myReturn;

    http_post(
        http://${username}:${password}\@${host}${collection}",
        $archive,
        headers => \%headers,
        sub {
          my ($body, $header) = @_;
            print "web response: ".Dumper([$body, $header]);
            $myReturn = $body;
        }
    );