use Test::Trap qw/ :flow:stderr(systemsafe) /; # or similar
trap { system 'command', 'with', 'args' };
my @logmessages = split /\n/, $trap->stderr; # chomped! or season to taste