Select Code to Download

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

round() overflow. Try smaller precision or use Math::BigFloat at -e li
+ne 1.

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

12,345,678,987,654,321

Argument "16725th" isn't numeric in numeric comparison (<=>) at /home/
+me/perl5/lib/perl5/Number/Format.pm line 599.

Happy 16,725th unbirthday, Aleena! You have 32 days until your next bi
+rthday on July 10, 2017.

package Util::Number;
use strict;
...
=cut

1;

package Random::Month;
use strict;
...
=cut

1;