$ perl -e 'print (-10-10)/2;'
-20
$ perl -e 'print (-10-10);'
-20
ладно - добавим немного переменных ...
$ perl -e '$a=-10; $b=-10; print ($a+$b)/2;'
-20
$ perl -e '$a=-10; $b=-10; print ($a+$b);'
-20
капец на ровном месте - добавим много переменных!!!
$ perl -e '$a=-10; $b=-10; $c=($a+$b)/2; print $c;'
-10
аллилуя сцуко!