Perl script to roll dice.