Select Code to Download

use warnings;
use strict;
...
    print $param1;
    print " - Switch = $switch\n";
}

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