Select Code to Download

#!/usr/bin/perl -w
use strict;
...
$table->colsMap( sub { $_->[2] = ($_->[0] =~ s/,/\./g) * $_->[1] } );

print $table->csv;