Select Code to Download

#assuming char width values in inches
my %char_width(a=>1, 
...

$cell_width /= 72;

my $cell_width = length($string) * $char_width;