package Pileofrogs::Frob;

sub frob {
   warn("Redirecting Pileofrogs::Frob::frob to Pileofrogs::Util::frob\n")
      unless our $frob_warning++;
   require Pileofrogs::Util;
   &Pileofrogs::Util::frob
}