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

##</code><code>##

$ cat pm_perlsvc.pl
#!/usr/bin/env perl

use strict;
use warnings;

use PerlSvc;

##</code><code>##

$ pm_perlsvc.pl
Path: /Users/ken/tmp/pm_perlsvc.pl
Program Dir: /Users/ken/tmp/
Logfile: /Users/ken/tmp/SCC_Service.log