use Progname;
tie $0, 'Progname', "NewProgramName";