#!/usr/bin/perl

use strict;
use warnings;

my $e1 = 20.714285714285715;
my $e2 = 11.785714285714286;
my $d = 20;
my $H = 30;
my $t = 15;
my $b = 30;

my $Iyz = $d*$H  * ($e1 - $d/2) * ( $e2 - $H/2) + $b*$t * ($e2 - $t/2) * ($e1 - $d - $b/2);
print $Iyz;

C:\Perl\community>frosch.pl
-48214.2857142857