DB<1> x \%nested_hash

##</code><code>##

DB<2> |x \%nested_hash

##</code><code>##

PAGER=/usr/local/bin/less perl -d buggy_script.pl

export PAGER=/usr/local/bin/less
perl -d buggy_script.pl

##</code><code>##

  DB<3> o pager=/usr/local/bin/less
               pager = '|/usr/local/bin/less'
  DB<4> o pager?
               pager = '|/usr/local/bin/less'

##</code><code>##

  DB<5> $ENV{PAGER}='/usr/local/bin/less'

##</code><code>##

vi .perldb
$DB::option{pager}='/usr/local/bin/less'

##</code><code>##

  DB<2> o pager?
               pager = '|/usr/bin/more'
  DB<3> |x \%mnt
  DB<4> @a=1..100

  DB<5> |x @a
  DB<6> o pager?
               pager = '|/usr/bin/more'
  DB<7> o pager=/usr/local/bin/less
               pager = '|/usr/local/bin/less'
  DB<8> !5
|x @a
  DB<9> x @a&#091;0..4]
0  1
1  2
2  3
3  4
4  5
  DB<10> |x @a
  DB<11> p exists $ENV{PAGER}

  DB<12> $ENV{PAGER}='/usr/local/bin/less'

  DB<13> p $ENV{PAGER}
/usr/local/bin/less
  DB<14> !10
  DB<15>