package Pileofrogs::Util;
*{"Pileofrogs::Frob::frob"} = \*{"Pileofrogs::Util::frob"};

sub frob { 
    print "frob!";
}

package main;
Pileofrogs::Frob->frob;
Pileofrogs::Util->frob;