perl -e 'use Util::Number qw(commify); print commify(12345678987654321)."\n";'