How to send PUT method?

[gustawdaniel]

No description provided.

[gustawdaniel]

I wrote the following code and it works

#!/bin/bash/env perl6

use Net::HTTP::GET;

my %header := {
    :Authorization("Bearer govj-XvtvL_C8v_EfZeKeCnL4z_jW3OUKoF-_y7OaB_"),
    :Content-Type("application/json")
};

my $url =  Net::HTTP::URL.new("http://localhost:3000/api/product");
my $body = '[{"id":4,"name":"D"}]';
my $req = Net::HTTP::Request.new(:$url, :$body, :method<PUT>, :%header); #.body.decode
my $trans = Net::HTTP::Transport.new;
my $response  = $trans.round-trip($req);

say $response.body.decode;

But is there method to make it shorter?