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

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

testpaket::function();