Select Code to Download

  $immh->execute .....;
  $imm = $immh->fetchrow_array;
...
  ## as opposed to 
  $immh->execute() ....;
  $imm = $immh->fetchrow_array();

# Open cursor
$imm_qy = "SELECT pv.value FROM profile_values pv, profile_fields pf
            WHERE pf.name = 'profile_magazine' AND pv.uid = $uid AND p
+v.fid = pf.fid";
print "\$imm_qy is $imm_qy .\n";
$immh = $dbh->selectrow_array($imm_qy) or die "Cannot prepare magazine
+ query: " . $dbh->errstr . "\n";