#use System::System_Constants;
...
our $progname = q{Constants::APPLICATION_SERVICE_NAME_SHORT};
...
#Log("\n ProgName: $progname \n");