use strict;

package Foo;

sub new{return bless {}, 'Foo';}
sub mysub{ say "invoked foo->mysub"; }


package main;
sub mysub{ say "invoked mysub";}

my $foo = Foo->new();
$foo->mysub % 2;
$foo->mysub %2;

mysub % 2;
mysub %2;