#!/usr/bin/perl -w
$pi3.14159;
print"what is the $radius \n";
chomp($radius<STDIN>);
$circuit=2*$pi*$radius;
print"this is the circumference of a circle r $radius is\n";