# // Connect to Microsoft SQL 2000 Database   
my $DSN = 'driver={SQL Server};Server=DIGGER;database=Mailbird;uid=digger;pwd=psswrd;';
my $dbh = DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n"; 
# Prepare the SQL statement
my $sth = $dbh->prepare( <<SQL );
SELECT c_email, c_first, c_last 
FROM tblClient, tblGroup, tblRegion 
WHERE  tblGroup.g_name = 'motel' 
AND tblRegion.r_name='Otago'
SQL

# Execute the SQL statement
$sth->execute;