Select Code to Download

use strict;
use warnings;

...
    }
    # print "$x\n";    # yields a strict error when uncommented
}

$x is true: <1>
$x is false: <0>
$x is still false<>