All pastes #811081 Raw Edit

Untitled

public text v1 · immutable
·published 2007-12-10 16:17 UTC
rendered paste body
#!/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";
}