perl HTML::TreeBuilder

[ReNzRv]

Как из файла с однострочным кодом (curl -s --compressed "https://yandex.ru" > 1.html) модулем HTML::TreeBuilder получить в файле 2.html читабельный вид кода с правильными пробельными отступами тегов (по глубине вложенности) и переносами строк?
спасибо.

Код: (perl) [Выделить]

#!/usr/bin/perl

use HTML::TreeBuilder;

$root = HTML::TreeBuilder->new();

$file = "1.html";
$ofile = "2.html";

$root->new_from_content($file);