In your copy of original code, you seems to have a typo ...

sub binary {
   binary my ($n) = @_;
...
[download]

... I was thinking that that might induce infinite recursion. Turns out code refuses to be compiled due to syntax error (and, parentheses are required to be able to cause "Deep recursion" error).