my $data= $twig->sprint; 
  print OUT $data;


##</code><code>##

  $twig->print( \*OUT)


##</code><code>##

  open( my $out, '>pretty.xml') or die "can't open pretty.xml: $!"; # perl 5.6.*

##</code><code>##

  open( my $out, '>', 'pretty.xml') or die "can't open pretty.xml: $!"; # perl 5.8.*