my $A = 250; # Pizza price
my $B = 300; # Selling price
my $C = $B - $A; # Difference
print "A = $A \n B = $B \n C = $C \n"; 
##</code><code>##

my $cost_price  = 250;
my $sale_price  = 300;
my $profit      = $sale_price - $cost_price;

print "Make them for $cost_price\nSell them for $sale_price\nMake $profit on each\n";