my $sth = $dbh->prepare(<<SQL);
	Select Email1 from client where reg = ?
SQL
	$sth->execute($id) or err_trap;
	
	while ($sth->fetchrow) {
		print "string $_";
	}