#!/usr/bin/perl

use strict;
use warnings;
use constant FACTOR => 1.95583;

my ($euro ,$dm, $betrag);

while(1){
   print q"
1 = DM in EURO umrechnen
2 = EURO in DM umrechnen
q = Programm beenden
Geben Sie Ihre Auswahl ein: ";
   
   chomp (my $auswahl = <STDIN>);
   die "Programm wird beendet!\n" 
      unless ($auswahl =~ /^\d+\.?\d*$/ && ($auswahl == 1 || $auswahl == 2));

   print "\nGeben Sie den umzurechnenden Betrag ein: ";
   chomp ($betrag = <STDIN>);
   if ($auswahl == 1) {
      $euro = $betrag / FACTOR;
      $euro = sprintf("%.4f", $euro);
      print "$betrag DM sind $euro Euro.\n";
   } else {
      $dm = $betrag * FACTOR;
      $dm = sprintf("%.2f", $euro);
      print "$betrag Euro sind $dm DM.\n";
   }
}