my $bool = 0;
while (1) {
  $bool = 1;
  last;
}
print "$bool\n";