-#!/usr/bin/perl
+#!/usr/bin/env perl
=pod
use Getopt::Long;
use FindBin;
+use Sys::Hostname;
use lib "$FindBin::Bin/lib", "$FindBin::Bin/../lib";
$clearexec->setMultithreaded ($multithreaded);
-my $logfile = "$Clearexec::CLEAROPTS{CLEAREXEC_LOGDIR}/$FindBin::Script.log";
+my $logfile = "$Clearexec::CLEAROPTS{CLEAREXEC_LOGDIR}/$FindBin::Script";
+ $logfile =~ s/\.pl$//;
+ $logfile .= '.' . hostname() . '.log';
EnterDaemonMode $logfile, $logfile, $pidfile
if $daemon;