Select Code to Download

use strict;
use warnings;
...
my $toggle = create_toggle;

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

use strict;
use warnings;
...
my $toggle = new Toggler;

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