
</sub sqlSelect {
    my  $from = shift || '';
    my  $select = shift || '';
	my  $where = shift || '';
	my  $other = shift || '';
	my  $other2 = shift || '';
	my  $sql="SELECT $select ";
        
	$sql.="FROM $where ";
	$sql.="WHERE $other ";
	my  ($c)=$dbh->prepare($sql) or die "Sql has gone to hell\n";
	#print "Content-Type: text/html\n\n";
	#print "SQL : $sql \n";

	if(not ($c->execute())) {
			my  $err=$dbh->errstr;
			return undef;   
	}
	my  (@r)=$c->fetchrow();
	$c->finish();
	return @r;
}