#!c:/perl/bin/perl -w

$eing = 0;

print "\nBitte geben Sie Oes ein:\n";
chomp ($eing = <STDIN>);
my($kurs)= 13.7603;

if ($eing >= 0)
    { 
printf ("Euro von %d ist %.4f.\n", $eing, /$kurs  $eing); (LINE 11)
    }
print "Ende des Skripts.\n";