Select Code to Download

close $clss_out{$_} for keys %clss_out;
csv_xlsx();

sub csv_xlsx{
  my $dir = "C:\\Temp\\Data";
...
    unlink $csv or warn $! ;
  }
}