steam.pl

use strict;
use warnings;

my $cylinder = 16; #直径
my $pressure = 120;
my $cost = 1_333_832; #下划线分隔
my $effert = $pressure * 3.14159 * ($cylinder / 2) ** 2;

print "Total pressure on the cylinder $effert/n";
print "the cost is $cost/n";