Select Code to Download

use warnings;
use strict;
...
sub doCond {
    1 == shift;
}

1 == 1 $VAR1 = 1;
1 == 0 $VAR1 = '';
doCond (1) $VAR1 = 1;
doCond (0) $VAR1 = '';