Select Code to Download

#!/usr/bin/perl

...
binmode STDOUT, ":encoding(UTF-8)";
print $review_et->as_text;
$tree->delete;