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|;