or download this
# Open cursor
$imm_qy = "SELECT pv.value FROM profile_values pv, profile_fields pf
+ WHERE pv.uid = $uid and pv.fid = pf.fid and pf.name = 'profile_magaz
+ine'";
...
$imm = $immh->fetchrow_array;
$immh->finish;
print "For uid of $uid, \$imm is $imm .\n";