use POSIX qw/setsid/;

if ( fork() ) {
    exit;
} else {
    setsid();
}
# now the foreground process is gone and I'm the child
if ( fork() ) {
    &do_something();
} else {
    &do_something_else();
}


##</code><code>##

iniquity 26464  0.5 15.9  2976  2348  ?  S   21:41   0:00 perl -w ./sincd.pl 
iniquity 26465  0.0 15.4  2920  2276  ?  S   21:41   0:00  \_ perl -w ./sincd.p


##</code><code>##

local $_ = "0A72656B636148206C72655020726568746F6E41207473754A";
while(s/..$//) { print chr(hex($&)) }