Select Code to Download

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

use strict;
use warnings;
...
my $x = "test" >> $foo;
__END__
OK!

() = "test" >> $foo;