# ...
use URI;
my $uri = URI->new($server_endpoint);
$uri->query_form(
    key    => $server_api_key,
    source => $encoded,
    format => "json",
);
my $req = HTTP::Request->new(POST => $uri);
# ...