$ PAGER=/usr/local/bin/less /usr/bin/perl -de ./my_buggy_script.pl

##</code><code>##

$ export PAGER=/usr/local/bin/less
$ printenv PAGER                  
/usr/local/bin/less
$ perl -de my_buggy_script.pl

##</code><code>##

      'time' => 1039509243
   '/var/spool/sw' => HASH(0x4033aca0)
      'basetype' => 'vxfs'
      'bavail' => 262045
      'bfree' => 279512
      'blocks' => 512000
      'bsize' => 8192
      'favail' => 69876
      'ffree' => 69876
      'files' => 73740
      'flag' => 0
      'frsize' => 1024
      'fsid' => 1073741834
      'fstr' => '/var/spool/sw'
      'namemax' => 255
      'size' => 512000
      'time' => 1037307204
  DB<4> H
3: x \%mnt
2: |x \%mnt
1: o pager?
  DB<4> !1
o pager?
               pager = '|/usr/local/bin/less'
  DB<5>