Select Code to Download

use Capture::Tiny 'capture';

...
  might_print_via_XS();
  system($^X, '-e', 'print "Capture me too\n"; warn "And this"');
};

use Capture::Tiny 'capture';

...
  print "Hi! \x{263a}\n";
  system($^X, '-e', 'print "Hi! \x{263a}\n"');
};