open(OUT, ">$tmpdir/$fname")
    or die "Can't open output $tmpdir/$fname: $!\n";

my $twig = XML::Twig->new(twig_roots => {
           '/object/attributes/attribute' =>
                    sub { put_new_jump(@_, \*OUT, $path) },
           },
            twig_print_outside_roots => \*OUT,
            keep_encoding => 1,
);



sub put_new_jump {
    my ($tree, $elem, $fh, $path) = @_;

    my $name = $elem->att('name');

    print "Name:  $name\n";
<blah blah blah>
    $elem->print($fh);
}

##</code><code>##

      Name:  CreateTime
<attribute group="Graph" kind="integer" name="CreateTime">1250716389</attribute>
      Name:  RevOperator
<attribute group="Graph" kind="string" name="RevOperator">jwalton</attribute>
      Name:  Uid
<attribute group="Graph" kind="string" name="Uid">PS4PS9S</attribute>
      Name:  DataRevisionDate
<attribute group="Graph" kind="integer" name="DataRevisionDate">1250801191</attribute>