#!/usr/bin/perl

use strict;
use warnings;
use Math::Trig;

my $breite=30;
my $diagonale=50;

print "BILD BREITE $breite\n";
print "TEXTLAENGE: $diagonale\n";

my $winkel_rad=acos($breite/$diagonale);
print "WINKEL RAD:$winkel_rad\n";

my $hoehe=sin($winkel_rad)*$diagonale;
print "BILD HOEHE $hoehe\n";