Help for this page
package Progname; use Carp; ... } 1;
use Progname; tie $0, 'Progname', "NewProgramName";