use strict;
use warnings;

sub foo (&){ shift->()}
sub baz (&){ shift->()}
sub bar {3}

my ($Q,$t,$res) = (10,3);

sub tst { ( foo {$Q} ) + baz {$t}; }


use B::Deparse;

print B::Deparse->new('-p')->coderef2text(\&tst);

print tst();