use warnings;
use strict;

# Dieses Script berechnet das Volumen eines Quaders...

$| = 1; # print sofort auf Konsole ausführen

my ($laenge, $hoehe, $tiefe, $ergebnis);

print "Bitte gib die Länge des Quaders an ... ";
chomp($laenge = <STDIN>);

print "Bitte gib die Höhe des Quaders ein ... ";
chomp($hoehe = <STDIN>);

print "Bitte geb die Tiefe des Quaders ein ... ";
chomp($tiefe = <STDIN>);

$ergebnis = $laenge * $hoehe * $tiefe;
print "Das Volumen des Quaders beträgt $ergebnis.\n";