C:\Dev\Perl_Dev>perl -d FileScan.pl<br> 
Loading DB routines from perl5db.pl version 1.3<br>
Editor support available.<br>

Enter h or `h h' for help, or `perldoc perldebug' for more help.<br>

main::(FileScan.pl:15): $Mode = "";       # Mode = "" Off, "U" Unattended, "D" Debug<br>
Unable to get Terminal Size. The Win32 GetConsoleScreenBufferInfo call didn't work. <br>The COLUMNS and LINES environment variabl
es didn't work. <br>The resize program didn't work. at C:/AS_Perl588/lib/Term/ReadKey.pm line 362.<br>
Compilation failed in require at C:/AS_Perl588/lib/Term/ReadLine/Perl.pm line 64.<br>
 at C:/AS_Perl588/lib/Term/ReadLine/Perl.pm line 64
        Term::ReadLine::Perl::new<br>('Term::ReadLine', 'perldb', 'GLOB(0x19223e4)', 'GLOB(0x18beb18)') called at C:/AS_Perl588/l
ib/perl5db.pl line 6066<br>
        DB::setterm called at C:/AS_Perl588/lib/perl5db.pl line 2238<br>
        DB::DB called at FileScan.pl line 15<br>
Debugged program terminated.  Use q to quit or R to restart,<br>
  use o inhibit_exit to avoid stopping after program termination,<br>
  h q, h R or h o to get additional info.<br>
  DB<1> q<br>