#!/usr/bin/perl
#Angabe der Anzahl der Ecken des Vielecks die in den Kreis gelegt werden
 use constant PI => 3.1415926535;
  sub tan { sin($_[0]) / cos($_[0])  }
print"Anzahl der Ecken_INNEN :\n";
$ecke =<STDIN>;
chomp $ecke;
print"Höhe:\n";

$pi = sin(PI/$ecke)*$ecke;

print "Der Umfang Pi nähert sich $pi.\n";

print"Anzahl der Ecken_aussen :\n";
$eckea =<STDIN>;
chomp $eckea;


$pia = tan(PI/$eckea)*$eckea;

print "Der Umfang Pi nähert sich $pia.\n";