my $flag=0; my $pid; while ($record = $fp->getline()) { if(flag == 0) { $flag=1; $pid=fork(); } else { if($pid == 0) { function1($record); } else { function2($record); } } }