Loading DB routines from perl5db.pl version 1.49
Editor support available.

Enter h or 'h h' for help, or 'perldoc perldebug' for more help.

main::(consolidator.pl:20):     my $test = 0; my $debug = 1;

SetConsoleMode failed, LastError=|6| at C:/Strawberry/perl/vendor/lib/Term/ReadK
ey.pm line 334.
 at C:/Strawberry/perl/vendor/lib/Term/ReadLine/readline.pm line 1581.
        readline::readline("  DB<1> ") called at C:/Strawberry/perl/vendor/lib/T
erm/ReadLine/Perl.pm line 11
        Term::ReadLine::Perl::readline(Term::ReadLine::Perl=ARRAY(0x56a004), "
DB<1> ") called at C:/Strawberry/perl/lib/perl5db.pl line 7339
        DB::readline("  DB<1> ") called at C:/Strawberry/perl/lib/perl5db.pl lin
e 1841
        DB::_DB__read_next_cmd(undef) called at C:/Strawberry/perl/lib/perl5db.p
l line 2761
        DB::DB called at consolidator.pl line 20