Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  $worksheet->write_row($row, 0, \@Fld);
  $row++; 
}