use strict;
use warnings;

sub bla($) {shift}
my ($Q,$t,$res) = (10,2);

sub tst {
    print $res= bla $Q / bla $t;
}

use B::Deparse;

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