if (0) {
   my $var = 1;
} else {
   print "$var\n";
}