or download this
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/CPAN/Prompt.pm : 23: sprintf "$word\[%
+d]> ", $CPAN::CurrentCommandId;
>> [0] C:/Perl64/lib/CPAN.pm : 331: last SHELLCOM
+MAND unless defined ($_ = <> );
cpan[1]>