package Source; sub orig { # use caller() here } package Importer; @ISA= "Parent"; *dest= \&Source::orig; package main; Parent->dest();