# perl -lwE "require Capture::Tiny; say 'captured: ', Capture::Tiny::capture(sub { say 'foo' })"
captured: foo