view release on metacpan or  search on metacpan

t/daemon.t  view on Meta::CPAN

open \$out, ">>", \$ENV{LOGGER_OUTPUT}
	or die "open >\$ENV{LOGGER_OUTPUT}: \$!";
select(\$out);
\$| = 1;
print \$out "START LOG \@ARGV\n";
while (<STDIN>) {
	print \$out \$_;
}

END_LOGGER
chmod(0755, "$tmp/logger") or die;

$ENV{LOGGER_OUTPUT} = "$tmp/log";
$ENV{PATH} = "$tmp:$ENV{PATH}";

# diag read_file("$tmp/config");

my $daemon_header = eval_line_numbers(<<'END_HEADER'); #{

	use strict;
	use warnings;