$ perl -MTie::FlipFlop -le 'tie my $f => Tie::FlipFlop => ("white","black"); print qq[$f]; print qq[$f]; print qq[$f]; print qq[$f]' white black white black