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);
		}
	}
}

##</code><code>##

Date: 2010-05-01
location: NZ

Date: 2010-05-02
location: AU

Date: 2010-05-03
location: IN