lanx@lanx-1005HA:/tmp$ perl -MO=Deparse -e 'sub foo (&) {}; foo {"foo"} . "3"'
sub foo (&) {
    
}
foo(sub {
    'foo';
}
) . '3';
-e syntax OK