my $wanted_style = $tree->entrycget($path_to_copy_style_from, q{-style});