#!/usr/bin/perl


use Term::ANSIColor;


sub Circumference
{
  my $radius="@_";
  my $pi=3.141592654;
  my $C = 2*$pi*$radius;
  print "\n\tWith Radious $radius, Circumference = $C\n\n";
}

print color("green"),"Input the radious of your circle:\t",color("reset");
chomp(my $input=<STDIN>);

&Circumference( $input );
exit;