#!/usr/bin/perl-w

              my $euro;
              my $dm;
              my $betrag =0;
              my $endlos=1;
              while($endlos){

             print"\n1 =DM in EURO umrechnen.";
             print"\n2 =EURO in DM umrechnen.";
             print "\n3 = Programm beenden.";
             print "\nGeben Sie Ihre Auswahl ein: ";
             chomp ($auswahl=<STDIN>);
             print "\n";
             print "\n";

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