$ perl -wMstrict 2>/dev/null
use Devel::Peek;
use Capture::Tiny qw/capture_stderr/;
my $dump = capture_stderr { Dump "foo" };
print $dump;