#!/usr/bin/perl

print "Enter a radius:";
chomp ($rad = <STDIN>); 
$cir = 2 * 3.1415 * $rad;
print "A circle with radius $rad has a circumference of $cir\n";


