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