#! /usr/bin/perl
use strict;
use warnings;

# damit wir den Kurs schnell wechseln können, setzen wir ihn als erstes
my $kurs = 1.95583;		#  1 Euro ~ 1.96 DM

# Benutzer fragen, was er berechnen lassen will
print <<AUSWAHL;
Was möchten Sie tun?
1) Euro in DM umrechnen
2) DM in Euro umrechnen
AUSWAHL

# Benutzereingabe einlesen (fehlt bisher)
chomp( my $auswahl = <STDIN> );

# Fehleremeldung weil ungueltiger Wert angegeben (es gibt noch andere Moeglichkeiten)
if ( !( $auswahl == 1 || $auswahl == 2 ) ) {
	print "Ungueltige Eingabe!";
	exit 1;
}

# Bis hierher scheint es korrekt zu sein, also fragen wir nach dem Betrag
print "Welcher Betrag soll umgerechnet werden? ";
chomp( my $betrag = <STDIN> );

# Berechnen und Ausgeben anhand der getroffenen Auswahl
if ( $auswahl == 1 ) {
	my $resultat = sprintf "%.2f", $betrag*$kurs;

	$resultat =~ tr/./,/;
	print "$betrag Euro sind $resultat DM.\n";
}
elsif ( $auswahl == 2 ) {
	my $resultat = sprintf "%.2f", $betrag/$kurs;

	$resultat =~ tr/./,/;
	printf "$betrag DM sind $resultat Euro.\n";
}