Help for this page
sub discount{ $_[0]->{input_val} -= $_[0]->{input_val} > 50 ? 2 : 0; ... $_[0]->{input_val} -= $_[0]->{year_to_date} > 10000 ? 4 : 0; return $_[0]->{input_val}; }