Perl zapis XML do suboru

use XML::Writer;

<?xml version="1.0" encoding="utf-8">
<aaaaa="">
    <bbbbb cccc="">
        <ddddd eeee="" />
    </bbbbb>
</aaaaa>   

<?xml version="1.0" encoding="UTF-8"?>

<func dir="">
    <function file="" name="">
        <param number="" type="">
        </param>
    </function>
    <function file="" name="">
        <param number="" type="">
        </param>
    </function>
</func>

<param number="" type="" />

my $output2 = new IO::File(">newfile.xml"); 
my $writer2 = new XML::Writer(OUTPUT  => $output2, DATA_MODE => 1, DATA_INDENT => 4 );

#@flinstones = (
#   [ 'Fred Finstone', '111, Rock River Lane' ],
#  [ 'Barney Rubble', '113, Rock River Lane' ],
#);

$writer2->xmlDecl( "UTF-8" );
$writer2->startTag( "func", dir => "" );

foreach my $character (@flinstones){
        $writer2->startTag("function", file => "", name => "" );
        $writer2->startTag("param", number => "", type => "" );
        #$writer2->dataElement("Name",    $character->[0] );
        #$writer2->dataElement("Address", $character->[1] );
        $writer2->endTag("param");
        $writer2->endTag("function");
}

$writer2->endTag("func");

$writer2->end();
$output2->close();

$writer->emptyTag("param", number => "", type => "" );