#!usr/bin/perl
print "Geben Sie den umzurechnenden Betrag ein:\n";
$input1= <STDIN>;
chomp ($input1);
$input1 =~ tr/,/./;
$input =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
print "Waehlen Sie bitte eine Option aus:\n";
print "DM zu EUR (1)\n";
print "EUR zu DM (2)\n";
$input2 = <STDIN>;
chomp ($input2);
$EUR = $input1/1.95583;
$DM = $input1*1.95583;
$EURFormatiert = sprintf("%.2f", $EUR);
$DMFormatiert = sprintf("%.2f", $DM);
if ($input2 == 1)
  {
  print "$input1 DM sind $EURFormatiert EUR\n";
  }
elsif ($input2 == 2)
  {
   print "$input1 EUR sind $DMFormatiert DM\n";
  }
else
  {
  print "Die Option $input2 existiert nicht!\n";
  }