% perl -we '$foo = 1; 3 >> $foo'  
Useless use of right bitshift (>>) in void context at -e line 1.