Select Code to Download

use strict;
use warnings;
...
say $channel1;
say "Check Amount =  ",
     (40*$channel3)+(($channel2-40)*$channel3*2);

e$ perl test-channel.pl 
What is your name?
...
10
rrr
Check Amount =  480