use Math::Trig; chomp(my $cal = ); my ($in, $out) = split(/\s/, ); my $dr = ($out - $in)/2; my $hr = $in + $dr; my $total = $dr * $dr * pi * $hr * 2 * pi * $cal; print $total . "\n";