Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
use Getopt::Std;
our $opt_d, %config;
getopt('d');

use POSIX qw/setuid setsid/;

if ($opt_d) {
...
}
# Be sure to define sub daemon_init
# On with the program . . .