#! /usr/bin/perl -w

use strict;
use CGI;


print CGI::start_html();

if( CGI::param('submit') )
{
     my $betrag = CGI::param('betrag') || 0;
     my $auswahl = CGI::param('button');
     $betrag =~ tr/,/./;
     my $ausgabe = $auswahl eq 'DM2EUR' ? $betrag / 1.95583 : $betrag * 1.95583;
     my $einheit_vorher = $auswahl ne 'DM2EUR' ? 'EUR' : 'DM';
     my $einheit_nacher  = $auswahl eq 'DM2EUR' ? 'EUR' : 'DM';
     print CGI::p( sprintf '%.2f %s sind %.2f %s', $betrag, $einheit_vorher, $ausgabe, $einheit_nacher);
}
print formular();
print CGI::end_html();

sub formular
{
    return CGI::start_form()
    . CGI::p( 'Geben Sie bitte den umzurechnenden Betrag ein:')
    . CGI::p( CGI::textfield( -name => "betrag") )
    . CGI::p('Ihre Wahl?')
    . CGI::radio_group(-name => 'button', -labels => { 'DM2EUR' => 'DM in EURO', 'EUR2DM' => 'EURO in DM'},
    -values => [ 'DM2EUR', 'EUR2DM' ]
    )
    . CGI::p( CGI::submit( -name => 'submit', -value => 'Umrechnen') )
    . CGI::end_form()
    ;
}