#!/usr/bin/perl

use strict;
use warnings;

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));

   if ($auswahl == 1) {
      print "\nGeben Sie den umzurechnenden Betrag ein: ";
      chomp ($betrag = <STDIN>);
      $euro = $betrag / 1.95583;
      print "$betrag DM sind $euro Euro.\n";
   } else {
      print "\nGeben Sie den umzurechnenden Betrag ein: ";
      chomp ($betrag = <STDIN>);
      $dm = $betrag * 1.99583;
      print "$betrag Euro sind $dm DM.\n";
   }
}