use strict;
use warnings;

package Foo;
use overload '>>' => 'right_shift';
sub new {bless {}, __PACKAGE__}
sub right_shift { print "OK!\n"}

package main;
my $foo = Foo->new;
my $x = "test" >> $foo;
__END__
OK!