Select Code to Download

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

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

use PerlSvc;

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