my $roll = main::3d6; # The main:: is required because???
[download]

Probably because subs that start with digits are frowned upon. Try tweaking it so your subs start with a char instead... Perhaps r3d3() in this case.

-Blake