use POSIX qw(setsid);
if (fork()) {
    exit;
} else {
    setsid;
}
rest of your code here...