use POSIX 'setsid';

chdir '/'; # Nicht zwangsläufig aber zu empfehlen
umask 0; # Lalala
open STDIN, '/dev/null'; # Daemons interagieren nicht
open STDOUT, '>/dev/null'; # Unsere konsole soll sauber bleiben
open STDERR, '>/dev/null'; # dito
my $pid = fork; # Child starten
exit if $pid; # Parent töten
setsid; # Wir wollen init als neuen parent

while (1) {
    # Sachen machen
}