let new_from_file filename =
  let sv = call_class_method "HTML::TreeBuilder" "new_from_file"
             [sv_of_string filename] in
  new html_treebuilder sv