I didn't change much but I did add a method to change the column widths (using the 'A:A' version of the set_column method).

sub setwidth {
    my ($self, $worksheet, $col, $width) = @_;
    if (defined($self->{worksheet}{$worksheet}{ptr})) {
       $self->{worksheet}{$worksheet}{ptr}->set_column($col,$width);
    }
}
[download]