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

my $message = "first line of text";
$message .= "\nsecond line of text";
my ($to_id, $subject) = qw(ron\@asdfasdf.cc testMessage);


        my @args = (    '-v', '-s', '--user',"api:key-123456",
        , 'https://api.XXX.net/v2/xxx.yyy.org/messages',
        ,'-F', "from='xxx yyy <postmaster\@xxx.yyy.org>",
        ,'-F', "to=ron\@xxx.cc",
        ,'-F', "subject=\'$subject\'",
        ,'-F', "text=\'$message\'");
my ($stdout,$stderr,$exit) = capture {
          system 'curl', @args;
};