Select Code to Download

 my $usr = $dbh->prepare(q{SELECT user_id from user where user_id = ?}
+)
   or die("usr prepare error: $!");
...
     # Blah
   }
 }