use Tie::FlipFlop; tie my $flipflop => Tie::FlipFlop => ( 'white', 'black' ); print qq|$flipflop\n|; print qq|$flipflop\n|; print qq|$flipflop\n|; print qq|$flipflop\n|; #### black black black black #### use Tie::FlipFlop; tie my $flipflop => Tie::FlipFlop => ( 'white', 'black' ); print $flipflop, qq|\n|; print $flipflop, qq|\n|; print $flipflop, qq|\n|; print $flipflop, qq|\n|; #### white black white black