#!/usr/bin/perl

use warnings;
use Scalar::Util;

$radius_times = 2;
$radius_times_2 = 3.141592654;
$radius_times_2 *= $radius_times;

while (1) {
print "enter the radius\n";
$user_radius = <STDIN>;

chomp($user_radius);

if (my $numeral = Scalar::Util->looks_like_number($user_radius)) {

$user_radius *= $radius_times_2;

print "circumference is equal to $user_radius\n";
}


else {
	print "no user input\n";
}

}