my $result = $dH  * ( $e1 - $d/2) * ( $e2 - $H/2) + $bt * ($e2 - $t/2) * ($e1 - $d - $b/2);