#!/usr/bin/env perl

# use strict;
use warnings;
use utf8;
use feature "say";
use Math::Trig;

sub intro {
say "What is the radius?";
our $radius= <STDIN>;
chomp ($radius);
our $a = 2*pi;
our $c = $radius * $a
}

intro();

if ($radius==0) {
   say "circumference= ", $radius;
}

elsif ($radius<0) {
	say "Radius should be greater than 0";
	intro();
}

else {
   say "circumference= ", $c
}