$sql = qq{select course_id,course_name,course_sitting_id,course_sitting_date from courses};
$sth = $dbh->prepare($sql) or die . . .;
$sth->execute() or die  . . . .;
while (@fetch = $sth->fetchrow)
		{ . . . .