Hallo
ich habe eine andere Lösung gefunden:

#!c:/perl/bin/perl -w

use Math::Trig;


print <<HERE_TEXT;

Berechnung von Oes in Euro:

Euro berechnen <1>

HERE_TEXT

$eingabe = 0;
$kurs = 13.7603;
$schilling = 0;

chomp ($eingabe = <STDIN>);

if ($eingabe == 1)
{
print "Bitte geben Sie Oes:\n";
chomp ($schilling = <STDIN>);
$euro = $schilling / $kurs;
print "\nEuro: $euro\n";
}


FUNKTIONIERT UND GETESTET

mfg

lolipop 999