sub add_tax {
	my ($price, $TaxRate) = @_;
	return $price * (1 + $TaxRate);
}

print add_tax(50.00, 0.20), "\n";
print add_tax(50.00, 0.15), "\n";