Pushover glances API call from bash -> perl

bash:
send_to_watch.pl "$title" "$text" "$subtext"

send_to_watch.pl
#!/usr/bin/perl -w

my $title=$ARGV[0];
my $text=$ARGV[1];
my $subtext=$ARGV[2];

use LWP::UserAgent;

LWP::UserAgent->new()->post(
  "https://api.pushover.net/1/glances.json", [
  "token" => "xxx",
  "user" => "yyy",
  "count" => "0",
  "title" => $title,
  "text" => $text,
  "subtext" => $subtext
    ]);