sub printcaller {
  my $caller = (caller(1))[3];
  print "$caller\n";
}

my $package = "testpackage";
*{$package.'::function'} = sub {
  printcaller();
};

testpackage::function();