#!/usr/bin/perl

print "What is the radius of your circle?\n";
$wtf = 2*3.141592654;
chomp($radius = <STDIN>);
if ($radius != /^-?\d+$/) {
	print "Your radius is invalid!\n";
} else {
	print "The circumference of your circle is " . $radius*$wtf . "!\n";
}