do_work($qfn)

##</code><code>##

if (my $pid = fork()) {
   waitpid($pid, 0);
} else {
   do_work($qfn);
}