sub rechnen {
    my $anfang = $eingabe->Contents;
    my $k = (($anfang * 9)  /5 ) +32;
    my $f = $anfang + 273.15;
    $ausgabe->Contents("Fahrenheit: $k\nKelvin: $f");
}