or download this
zsl@pc:~/codefolder $ perl dieroller.pl
Input the dice and modifier you want to roll like this: 2d9+100. To qu
+it, press Ctrl-C.
...
Argument "^[[A" isn't numeric in foreach loop entry at DDDR.pl line 19
+, <> line 2.
^C
zsl@pc:~/codefolder $