C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/sym.pl 
{
    use warnings;
    use strict;
    (foo(sub {
        $Q;
    }
    ) + baz(sub {
        $t;
    }
    ));
}13