my $outfile = new IO::File(">test.xml");