if (my $var) {}
else {
   print ++$var, "\n";
}