Select Code to Download

#!/usr/bin/perl
use strict;
...
print "What is your favorite color?\n";
chomp (my $color = <>);
print "You are $age, and your favorite color is $color.\n";

#!/usr/bin/perl
use strict;
...
my $area = (3.14 * ($r ** 2));
my $cir = ($diameter * 3.14);
print "Radius: $r\n Diameter: $diameter\n Circumference: $cir\nArea: $
+area\n";