Select Code to Download

use strict;
use warnings;
...

foo {$Q} + foo {$t}; # line 12

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/sym.pl 
Too many arguments for main::foo at d:/tmp/pm/sym.pl line 12, near "};
+"
Execution of d:/tmp/pm/sym.pl aborted due to compilation errors.

use strict;
use warnings;
...
use B::Deparse;

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

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/sym.pl 
{
...
    use strict;
    print(($res = bla(($Q / bla($t)))));
}