Select Code to Download

#!/usr/bin/perl

...
my $total_sales = $discounted_price ... $sold ...;

my $profit = $total_sales ... $total_cost ...;