1 2 3 4 5 6 7 8 9
package $1::`(f-no-ext (f-filename (buffer-file-name)))`; use 5.032; use strict; use warnings; $0 1;