# You start out in package main sub get { print "This is &main::get();\n"; } package record; # This puts you in package record sub get { print "This is &record::get();\n"; }