#!perl
print "Das Paddsensche Dreieckswunder\n\n";

print "Programm zum Errechnen non Dreiecksseiten\n\n\n";

print "Hast du die Hypothenuse gegeben?Gib Ja oder Nein ein.\n";

$info1 = <STDIN>;

if ($info1 eq "Ja\n") {
    print "Ok, dann gebe sie nun ein\n";
} else {
    print "hmm, Pech gehabt\n\n"
}

$hypo = <STDIN>; #Die Hypothenuse

print "...und nun die Seite, die du weisst eingeben...\n\n";

$seite = <STDIN> # Die seite

print "((($hypo ** 2) - ($seite ** 2)) ** 0.5)";

$seite = <STDIN>; # Die seite

#!perl
print "\n\nDas Paddsensche Dreieckswunder\n\n";
print "--------------------------------------------------------------------\n Programm zum Errechnen von Dreiecksseiten im rechtwinkligen Dreieck\n--------------------------------------------------------------------\n\n";
print "Hast du die Hypothenuse gegeben? Gib 'Ja' oder 'Nein' ein.\n\n";
$info1 = <STDIN>;
if ($info1 eq "Ja\n") {
    print "\n Ok, dann gebe sie nun ein\n\n";
    $hypo = <STDIN>; #Die Hypothenuse
    print "\n ...und nun die Seite, die du weisst eingeben...\n\n";
    $seite = <STDIN>; # Die seite
    print "\n Die fehlende Seite hat die Laenge " . ((($hypo ** 2) - ($seite ** 2)) ** 0.5);
} else {
    print "\n Gut. Dann gib jetzt bitte die erste Seite ein:\n\n";
    $seite1 = <STDIN>;
    print "\n ...und dann die Seite 2 eingeben:\n\n";
    $seite2 = <STDIN>;
    print "\n Die Laenge der Hypothenuse c betraegt " . (($seite1 ** 2) + ($seite2 **2)) ** 0.5;
}

print "\n--------------------------------------------------------------------"

open my $fileh, '<', 'meinroman.txt' or die $!;
{
    local $/ = "";
    while (my $absatz = <$fileh>) {
        # ... mach was mit dem Absatz
    }
}
close $fileh;