$ perl doviprolldie

1 2 3...*SNIP*...5999 6000

Undefined subroutine &main::tally called at doviprolldie line 13.