use warnings;
use strict;

my @lines;

test ("No switch param:");
test ("Switch param is 0", 0);
test ("Switch param is -1", -1);

sub test {
    my $param1 = shift;
    my $switch = shift || 1;
    
    print $param1;
    print " - Switch = $switch\n";
}

##</code><code>##

No switch param: - Switch = 1
Switch param is 0 - Switch = 1
Switch param is -1 - Switch = -1