Select Code to Download

open(my $pfh, ">&", "STDOUT") or die("$0:ERROR Unable to redirect outp
+ut to STDOUT. ERR: $?/$!\n");

...

$fmo->set_mhandle($pfh);
print Dumper $fmo;

sub new {
        my $class = shift;
...

        return $self->{mhandle};
}

$VAR1 = {
          'mhandle' => \*{'::$pfh'},
          'waitforchilds' => '180',
          'maxchilds' => '20'
        };

$VAR1 = bless( {
                 'mhandle' => 'glob(0x2161670)',
...
                 'maxchilds' => 20,
                 '_childs' => {}
               }, 'fmanager' );

$VAR1 = bless( {
                 'mhandle' => \*{'::$pfh'},
...
                 'maxchilds' => 20,
                 '_childs' => {}
               }, 'fmanager' );