Select Code to Download

use Win32::OLE;

...
    $sheet = $book->Worksheets->Add;
    $sheet->{Name} = $sheet_name;
}