Select Code to Download

use strict;
use Data::Dumper;
...

my $stmt = qq~SELECT * FROM registrants WHERE registrant_id = ?~;
%results = % { $dbh->selectrow_hashref($stmt, undef, $registrant_id) }
+;

    my $stmt = qq~SELECT * FROM registrants, hotels, cadavers WHERE re
+gistrants.registrant_id = ? AND registrants.registrant_id = hotels.re
+gistrant_id~;
    %results = % { $dbh->selectrow_hashref($stmt, undef, $registrant_i
+d) };