#!/usr/bin/perl
use strict;
use warnings;

print "What is the radius of the circle?\n";
chomp (my $r = <>);

my $diameter = (2 * $r);
my $area = (3.14 * ($r ** 2));
my $cir = ($diameter * 3.14);
print "Radius: $r\n Diameter: $diameter\n Circumference: $cir\nArea: $area\n";