Select Code to Download

    use Scalar::Util qw(refaddr);
    my $newclass = q[
...
    $newclass =~ s/\$OBJID/refaddr($object}/eg;
    eval $newclass;
    bless $object, ref($object)."::FakeClass".refaddr($object);