#!/usr/bin/perl
use strict;
use warnings;
print "What is the radius? ";
my $radius = <STDIN>;
chomp $radius;
my $circum = $radius * 2 * 3.14;
print "The circumference of the circle with the radius of $radius is $circum\n";