Select Code to Download

# All non-excel stuff taken out for your viewing ease ;)

...
    }
  }
}

my $file_name = 'test.xls';
my $xl        = Win32::OLE->new('Excel.Application', sub {$_[0]->Quit;
+}) or die "Excel failed to load: Win32::OLE->new";
...
$sheets[1]->{Name} = 'grp_avg';

$book->SaveAs($file_name)