Select Code to Download

#!/usr/bin/perl -slw

...

my $sentry = Object::Destroyer->new(sub { undef $copy });
print B::svref_2object($ref)->REFCNT;

#!/usr/bin/perl

...
    testsub;
}
$closure->($ref);