Select Code to Download

my $infile = shift;
usage()  unless defined $infile && -f $infile;

sub usage {
    print "csv2xls infile [outfile] [subject]\n";
    exit;
}

    # We store the string width as data in the Worksheet object. We us
+e
    # a double underscore key name to avoid conflicts with future name
+s.
    #
    my $old_width    = $worksheet->{__col_widths}->[$col];

# Very simple conversion between string length and string width for Ar
+ial 10.
# See below for a more sophisticated method.
...

    return length $_[0];
}