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

print add_tax(50.00), "\n";

# Let's swap to a country with a lower tax rate
$TaxRate = 0.15;
print add_tax(50.00), "\n";