17

17.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $apple;
my $banana;
my $peach;

$apple = 250;
$banana = 150;
$peach = 120;

my $total = $apple * 10 + $banana * 8 + $peach * 5;
my $addtax = $total * 1.08;
print "消費税込みの合計金額は$addtaxです。\n";