$ perl -wle'
sub Foo::bar { return 23 }
my $o = bless {}, "Foo";
my $x = bar $o "guggug"; # dasselbe wie $o->bar("guggug")
print $x'
23