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