Here is the code I was trying to work on...but it gets created on 1 cell when I try to open it in a excel spread sheet

        # start an XML worksheet
         open (my $xmlfl,"+>>$path/$file") or die "$file failed: $!\n"
+;
        print $xmlfl "<?xml version=\"1.0\"?>\n";
        print $xmlfl "<Workbook xmlns=\"urn:schemas-microsoft-com:offi
+ce:spreadsheet\"\n";
        print $xmlfl " xmlns:o=\"urn:schemas-microsoft-com:office:offi
+ce\"\n";
        print $xmlfl " xmlns:x=\"urn:schemas-microsoft-com:office:exce
+l\"\n";
        print $xmlfl " xmlns:ss=\"urn:schemas-microsoft-com:office:spr
+eadsheet\">\n";
        print $xmlfl " <Worksheet ss:Name=\"Policy-Groups\">\n";
        print $xmlfl "  <Table>\n";

        # print $xmlfl the header row
        # <group> <policy1> <policy2> ... <policyn>
        print $xmlfl "   \n<Row>";
        foreach $app(keys %appsrvr) {
                print $xmlfl "    <Cell><Data ss:Type=\"String\">$app<
+/Data></Cell>";
        print $xmlfl "   </Row>";

        print $xmlfl "   <Row>\n";
        foreach $attribute(keys %{ $appsrvr{$app} }) {
#print "  $appsrvr{$app}{$attribute}";
        print $xmlfl "   <Row>\n";
        print $xmlfl "    <Cell><Data ss:Type=\"String\">$appsrvr{$app
+}{$attribute}</Data></Cell>\n";
        print $xmlfl "   </Row>\n";
                }
#       print $xmlfl "   </Row>\n"
        }
#       print "\n";
        
        # End the XML worksheet
        print $xmlfl "  </Table>\n";
        print $xmlfl " </Worksheet>\n";
        print $xmlfl "</Workbook>\n";

        # close this group file
[download]

CodeTags™ by holli