Deep recursion on subroutine "main::A" at ack.pl line 11.
Deep recursion on subroutine "main::A" at ack.pl line 13.

##</code><code>##

  print "A($_[0],$_[1])\n";