Select Code to Download

        while (<FILE>) {
                my $reading = 0;
...
        next unless $reading; 
        print "$_";
}

<Worksheet ss:Name="Appxxx">
<Table ss:ExpandedColumnCount="9" ss:ExpandedRowCount="4" x:FullColumn
+s="1">
...
   </Row>
   <Row AutoFitHeight="0">