package FooBar;

sub set_function_ref {
  my $function = shift;
  #do someting interesting with it.
}

in script.pl:

sub interesting_fuction {
  # interesting things...
}

FooBar::set_function_ref(\&interesting_function);