#! usr/bin/perl

print "What is the radius of the circle?/n";

my $radius = <>;

my $area = 3.14 * ($radius ** 2);

my $circumference = (2 * $radius * 3.14);

my $diameter = (2 * $radius);

print "Diameter: $diameter/n
       Circumference: $circumference/n
       Area: $area/n";