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