local $| = 1;

if($pid = fork()) {
 #Do some parent stuff
 exit;
}
else { #Child
 close(STDOUT);
 #Do child stuff
}