E:\Perl\TEST>perl -d test1.pl

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

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

main::(test1.pl:3):     my $h1 = "hello world\n";

SetConsoleMode failed, LastError=|6| at C:/Strawberry/perl/site/lib/Term/ReadKey.pm line 265.
 at C:/Strawberry/perl/site/lib/Term/ReadLine/readline.pm line 1581
        readline::readline('  DB<1> ') called at C:/Strawberry/perl/site/lib/Term/ReadLine/Perl.pm line 11
        Term::ReadLine::Perl::readline('Term::ReadLine::Perl=ARRAY(0xb0c2d4)', '  DB<1> ') called at C:/Strawberry/perl/
lib/perl5db.pl line 6499
        DB::readline('  DB<1> ') called at C:/Strawberry/perl/lib/perl5db.pl line 2237
        DB::DB called at test1.pl line 3
  DB<1>