Select Code to Download

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

sub add_tax {
    my ($price, $TaxRate) = @_;
...

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

{
    package Tax::Zone;
...

my $barland = Tax::Zone->new(0.15);
print $barland->add_tax(50.00), "\n";