in reply to How do I use strict with asub( a = 'b' ) syntax?

Change 
my $res = $ua->request(POST $url,
                           content-type  => 'form-data',
                           content       => $query,
                           authorization => "Basic " . AUTHORISATION,
);

[download]
to 
my $res = $ua->request(POST $url,
            [    
                "content-type"  => 'form-data',
                "content"       => $query,
                "authorization" => "Basic " . AUTHORISATION
            ]);

[download]
Note the brackets around your request.

[ar0n]

In Section Seekers of Perl Wisdom