# UNTESTED
package functional_Util;
my $default_self= "something";
sub utility {
   unshift $default_self, @_;
   goto &methodlike_Util::utility;
}

package methodlike_Util;
sub utility {
   my $self =shift;
   # ... do it
}