use strict;
use warnings;
use Capture::Tiny qw/ capture /;

my ($to_id, $subject, $message) = qw(AA BB CC);
my @args = (    '-v', '-s', '--user', 'api:key*****',
                '-F', "from=*****",
                '-F', "to=Name <$to_id>",
                '-F', "subject=$subject",
                '-F', "text=$message",
                'https://api.****/**/*****/messages',
);
my ($stdout,$stderr,$exit) = capture {
          system 'curl', @args;
};
print $stdout,$stderr,$exit;