use overload ...;
my $n = bless {number => 23}, "main";
print $n >> 2;