daemon();

sub daemon{
        # Create a daemon which does nothing but "sleep 100"
        my $dpid = fork();
        return 0 unless defined $dpid;
        unless ($dpid){
                exit 255 unless open STDIN, '/dev/null';
                exit 255 unless open STDOUT, '>/dev/null';
                exit 255 unless open STDERR, '>/dev/null';
                exit 255 unless setsid();
                sleep 100;
                exit 0;
        }
        return 0 unless wait() == -1;
        return $dpid;
}