c:\test>perl -d:Trace \perl64\bin\cpan.pl
>> [0] \perl64\bin\cpan.pl           :  172: cluck 'About to use cpan.pm';
>> [0] C:/Perl64/lib/Carp.pm         :   47: sub cluck   { warn longmess  @_ }
>> [0] C:/Perl64/lib/Carp.pm         :   28: sub longmess  { goto &longmess_jmp }
>> [0] C:\Perl64\lib/Carp/Heavy.pm   :   46:     my $call_pack = caller();
>> [0] C:\Perl64\lib/Carp/Heavy.pm   :   47:     if ($Internal{$call_pack} or $CarpInternal{$call_pack}) {
>> [0] C:\Perl64\lib/Carp/Heavy.pm   :   48:       return longmess_heavy(@_);
>> [0] C:\Perl64\lib/Carp/Heavy.pm   :  183:   return @_ if ref($_[0]); # don't break references as exceptions
>> [0] C:\Perl64\lib/Carp/Heavy.pm   :  184:   my $i = long_error_loc();
...
>> [0] C:\Perl64\lib/CPAN/Shell.pm   : 1469:         print $swhat;

cpan shell -- CPAN exploration and modules installation (v1.9402)
Enter 'h' for help.

>> [0] C:/Perl64/lib/CPAN.pm         :  323:     my($continuation) = "";
>> [0] C:/Perl64/lib/CPAN.pm         :  324:     my $last_term_ornaments;
>> [0] C:/Perl64/lib/CPAN.pm         :  325:   SHELLCOMMAND: while () {
>> [0] C:/Perl64/lib/CPAN.pm         :  326:         if ($Suppress_readline) {
>> [0] C:/Perl64/lib/CPAN.pm         :  327:             if ($Echo_readline) {
>> [0] C:/Perl64/lib/CPAN.pm         :  330:             print $prompt;
>> [0] C:\Perl64\lib/CPAN/Prompt.pm  :   18:     my $word = "cpan";
>> [0] C:\Perl64\lib/CPAN/Prompt.pm  :   19:     unless ($CPAN::META->{LOCK}) {
>> [0] C:\Perl64\lib/CPAN/Prompt.pm  :   22:     if ($CPAN::Config->{commandnumber_in_prompt}) {
>> [0] C:\Perl64\lib/CPAN/Prompt.pm  :   23:         sprintf "$word\[%d]> ", $CPAN::CurrentCommandId;
>> [0] C:/Perl64/lib/CPAN.pm         :  331:             last SHELLCOMMAND unless defined ($_ = <> );
cpan[1]>