use strict;
use warnings;
{
    package Toggler;
    sub new {
	my $flag =  0;
	return sub { $flag = 1-$flag }
    }
}

my $toggle = new Toggler;

print $toggle->()."\n" for 1..10;