#!/usr/bin/perl

use strict;
use warnings;

use Net::Server::Daemonize qw( daemonize );

print("Content-type: text/plain\n\nOK");

daemonize($>, $), undef);

...