Select Code to Download

#!/usr/bin/perl --
use strict; use warnings;
use Devel::TraceCalls { Subs => [qw/ hanoi /]};
...
   }
}
__END__

TRACE: main::hanoi( 3, 'A', 'C', 'B', 0 )
TRACE: +-main::hanoi( 2, 'A', 'B', 'C' )
...
Move disk #2 from B to C.
TRACE: | +-main::hanoi( 1, 'A', 'C', 'B' )
Move disk #1 from A to C.