for(;;){
        my $result=$PortObj->input;
        if($result =~ m/foo/){
                $count++;
                my $query="INSERT INTO logs(cl_date, cl_dialled) values(now(),'$count')";
                my $clsth=&db_query($query);
        }
}