#!/usr/bin/perl -w
$DM = 0;
$Kurs = 1.95583;
print "\n********************\n";
print "UMRECHNUNG DM - EURO  \n";
print "********************\n";
print "\nDas Programm fuehrt eine Umrechnung von DM in Euro durch \n";
print "______________________________\n";
print "\nMachen Sie bitte folgende Angaben. \nBitte beachten Sie, fuer Nachkommastellen den Punkt einzugeben.\n";
print "\nBetrag in DM: ";
chomp ($DM =<STDIN>);
print "\nDer aktuelle Umrechnungskurs lautet: 1.95593\n";
$EUR = $DM / $Kurs;
$EUR = sprintf ("%.4f", $EUR);
print "\nBetrag in EUR: $EUR\n";
print "\nCopyright: Margarita Miagkova\n";