view release on metacpan or  search on metacpan

demo/suexec_mod_perl.pl  view on Meta::CPAN

  "www.henry.com"  => "henry",
  "ralph.com"      => "ralph",
  "www.ralph.com"  => "ralph",
};

my ($uid,$gid) = (getpwnam $nonroot)[2,3];
if (!-d $logdir) {
  mkdir($logdir, 0755);
  if ($uid && $gid && # Taint cleaning
      "$uid:$gid" =~ /(\d+):(\d+)/) {
    chown($1, $2, $logdir);
  }
}

run Net::DNAT
  port => 80,
  pools => $pools,
  default_pool => $default_pool,
  host_switch_table => $host_dest,
  user => $uid,
  group => $gid,