Select Code to Download

my $workbook;     # No need for the = ()
my $worksheet;    # No need for the = ()
...
$row = $day + 1;
$worksheet->write($row,$col,$temp); # No my
$day = $day + 1;