{
    my $a;
    my $var = sub{ $a = 'OK?' };
    &$var;
    print $a
}