#!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";
  }

<form action="/cgi-bin/calculator.pl" method="post">
  <p>Geben Sie bitte den umzurechnenden Betrag ein:</p>
  <p>
    <input name="betrag" type="text" id="betrag">
</p>
  <p>W&auml;hlen Sie bitte eine Option aus:</p>
  <p>
    <input type="radio" name="EUR" value="radiobutton"> 
  DM zu EUR</p>
  <p>
     <input type="radio" name="DM" value="radiobutton"> 
     EUR zu DM</p>
  <p>
    <input type="submit" name="Submit" value="Umrechnen">
  </p>
</form>