#!/usr/bin/perl -w
use strict;

print "Starts out false: ", boolToggle(), $/;
print "Then is true: ", boolToggle(), $/;
print "Then false: ", boolToggle(), $/;
print "Then true: ", boolToggle(), $/;

# BEGIN # Remove first "#" from this line to fix bug.
{
    my $static= 1;
    sub boolToggle {
        $static= $static ? 0 : 1;
        return $static;
    }
}

print "Then opposite of last time: ", boolToggle(), $/;

##</code><code>##

Starts out false: 1
Then is true: 0
Then false: 1
Then true: 0
Then opposite of last time: 0