MT#61459 Do not use Perl indirect object syntax

This syntax is discouraged, and it is not enabled by default any longer
starting with the 5.36 feature bundles. Stop using it so that we can
eventually bump our minimum required Perl version.

Fixes: Objects::ProhibitIndirectSyntax
Warned-by: perlcritic
Ref: https://metacpan.org/pod/feature#The-'indirect'-feature
Change-Id: Ib0df13a2c73d96f44f387dcd8d47a8fe17a3b961

vmnotify

@@ -212,7 +212,7 @@ sub send_ext_notify {
     }
     $url = substr($url, 0, -1) if $mm;
 
-    my $ua = new LWP::UserAgent;
+    my $ua = LWP::UserAgent->new;
     $ua->agent('NGCP vmnotify 1.0');
 
     $ua->ssl_opts(
@@ -220,7 +220,7 @@ sub send_ext_notify {
         SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
     );
 
-    my $r = new HTTP::Request("POST", $url);
+    my $r = HTTP::Request->new("POST", $url);
     $r->header('Content-Type', 'application/json');
 
     my $json = {