perl -Dx -m"XML::Twig" -e '' 2>&1 | grep print_to
# should print:
SUB XML::Twig::print_to_file = {