Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print Dumper(\$DBM);

__END__

$VAR1 = \bless( {
  'TASK_QUEUE' => bless( {
...
      ], 'DBM::Deep' )
   }, 'DBM::Deep' )
}, 'DBM::Deep' );

$VAR1 = \bless( {
                   'FILE' => 'bar1',
                   'CMD' => 'foo1'
                 }, 'DBM::Deep' );

$VAR1 = \bless( {
  'TASK_QUEUE' => bless( {
...
      ], 'DBM::Deep' )
  }, 'DBM::Deep' )
}, 'DBM::Deep' );