Select Code to Download

my ($x, $y) = (1,2);
if (<some complex condition depending on the environment>) {
...
    } else {
    call_my_sub($y)
}

my ($x, $y) = (1,2);
if (<some complex condition depending on the environment>) {
...
    } else {
    call_my_sub($y)
}

my ($x, $y) = (1,2);
if (<condition>) {
...
    } else {
    call_my_sub($z)
}

my ($x, $y) = (1,2);
if (<some complex condition depending on the environment>) {
...
    } else {
    call_my_sub($y)
}

if (<some complex condition depending on the environment>) {
    my $x = 1;
...
    my $y = 2;
    call_my_sub($y)
}