use REST::Client;
sub REST::Client::response { +shift->{_res} }

my $uri = "...";
my $client = REST::Client->new();
# ...some setup...
print $client->POST($uri)
    ->response
    ->request
    ->as_string;