Select Code to Download

use strict;
use warnings;
...
    print STDOUT "Name:  $name\n";
    $elem->print ($fh);
}

Name:  My Name is Mr. Wibble
All done now. Result is:
...
<root>
    <wibble name="My Name is Mr. Wibble">The wibble element</wibble>
</root>