Select Code to Download

package Excel::Writer::XLSX::Workbook;

...
    my($self) = @_;
    return $self->{'_worksheets'}->[ $self->{'_activesheet'} ];
}