use Test::More;
use Test::Trap;
 
my @r = trap { some_code(@some_parameters) };
diag($trap->stdout);