Help for this page
#!/your/perl/here ... print "${dice_num}d${dice_side}-${dice_drop}: $total/$count=$avg\n"; __END__
>dnd.pl 4 6 4d6-1: 15869/1296=12.2445987654321
>dnd.pl 2 6 0 2d6-0: 252/36=7