Ticket #164: statclld

#!/usr/bin/perl -w

use POSIX;
use POSIX qw(setsid);

$0 =~ s/.*\///; # Set process name to filename without path

$|=1;                   # Flush buffers and desable I/O buffering
chdir '/' or die "Can't chdir to /: $!";
umask 0;
open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
defined ( my $pid = fork ) or die "Can't fork: $!";
if ( $pid != 0 ) {
        exit;
};
POSIX::setsid() or die "Can't start a new session: $!";
while ( 1 ) {
};