#! perl
use strict;
use warnings;
use feature      'lexical_subs';
use Scalar::Util 'weaken';

my $ref;

{
    my sub frobnicate
    {
        print 42;
    }

    my $local_ref = \&frobnicate;
#   $ref = $local_ref;
    weaken($ref = $local_ref);
}

$ref->();

##</code><code>##

12:49 >perl 775_SoPW.pl
The lexical_subs feature is experimental at 775_SoPW.pl line 10.
Can't use an undefined value as a subroutine reference at 775_SoPW.pl line 20.

12:49 >