#!/usr/bin/perl -w

print "Geben Sie den Radius ein: ";
chomp ($radius = <STDIN>);
$pi = 3.14;
$result = 2 * $pi * $radius;
print "Bei einem Radius von $radius ergibt sich ein Umfang von $result\n";