#!d:/Perl/bin/Perl.exe

$PI=3,141592654;
print("Bitte Radius eingeben: ");
$Radius=<STDIN>;
chomp ($Radius);
$UMFANG=2*$PI*$Radius;
print(Der Umfang für einen Kreis mit dem Radius $Radius betraegt: $UMFANG);

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

#!D:/Perl/bin/Perl

#!d:/perl/bin/perl