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