Select Code to Download

#!/usr/bin/env perl

use 5.012;
...
my $instance_ref2 = myDebugger::GetInstance();
say ref($instance_ref2);
say $instance_ref2->{foo};

package myDebugger;

use 5.012;
...
    return $debugger //= bless { foo => 'bar' }, 'OLEThingy';
}
1;

OLEThingy
OLEThingy
Persistent