Just as a light warning... diotalevi's method works fine but be aware that if you ever call my_sub("literal") (or similar), you will end up with a fatal error of Modification of a read-only value attempted at ... (with the file and line number being in your package at the tie; you may want to trap that error and carp it out to the caller).

bbfu
Black flowers blossom
Fearless on my breath