package ForeignModule; sub NEXT { print scalar caller } 1;