#!D:\Perl\bin\Perl.exe

# erzwingt sauberen Umgang mit Variablen und mehr; siehe: perldoc strict
use strict;
# gebe Warnungen aus, wenn was "nicht stimmig" ist; siehe: perldoc warnings
use warnings;

# der Punkt ist Trennzeichen bei Nicht-Ganzen Zahlen; nicht das Komma
my $PI = 3.141592654;

# Klammern beim print-Aufruf sind unüblich; der auszugebene String muss aber in "" oder '' stehen
print "Bitte Radius eingeben: ";

# radius vom Benutzer einlesen und sofort Umbruch entfernen
chomp( my $radius = <STDIN> );

# Berechnung
my $umfang = 2 * $PI * $radius;

# siehe oben
print "Der Umfang fuer einen Kreis mit dem Radius $radius betraegt: $umfang\n";