my ($buffer, $line) = (undef, undef);
	my $read = true;
	while ($read)
	{
	   $buffer = $curline->getline();
	   if ( $buffer =~ m{;|/} ) 
	   {
		  $read = undef;
	   }
	   $line .= $buffer;
	}
        process_SQL($line);