use Math::Trig;


print <<HERE_TEXT;

Berechnung von Fl\x84che und Umfang eines Kreises:

Umfang berechnen          <1>
Fl\x84che berechnen     <2>
Umfang verdoppeln        <3>
Beenden                
 <4>

HERE_TEXT

$eingabe = 0;
$flaeche = 0;
$umfang = 0;
$radius = 0;


chomp ($eingabe = <STDIN>);

if ($eingabe == 1) 
    {
    print "Bitte geben Sie den Radius ein:\n";
    chomp ($radius = <STDIN>);
    $umfang = 2*pi*$radius;
    print "\nUmfang des Kreises: $umfang\n";
    }
if ($eingabe == 2) 
    {
    print "Bitte geben Sie den Radius ein:\n";
    chomp ($radius = <STDIN>);
    $flaeche = pi * $radius ** 2;
    print "\nKreisfl\x84che: $flaeche\n";
    }

if ($eingabe == 3) 
    {
    print "Bitte geben Sie den Radius ein:\n";
    chomp ($radius = <STDIN>);
    $umfang = (2*pi*$radius)*2;
    print "\nUmfang des Kreises verdoppeln: $umfang\n";

if ($eingabe == 4) 
    {
    print "Das Skript wird beendet.\n";
    }