use strict;
use warnings;
use diagnostics;
use feature "say";
use feature "switch"
use v5.22.1


say "What is your name?";
$channel1 <STDIN>;
say "How many hours did you work?";
$channel2 <STDIN>;
say "What is your pay?";
$channel3 <STDIN>;
say $channel1;
say Check Amount = $[(40*$channel3)+(($channel2-40)*$channel3*2)]