Select Code to Download

use CGI qw|:standard|;
#my $firstname = $in{name};                                           
+        
my $firstname = CGI::param('name');

use strict; #<- get into the habit of using this
#...
...
while (($lastname, $date_first_employed, $annual_salary, $id,
$email_address, $home_phone_number, $emergency_phone_number) = $sth->f
+ethrow_array())
#...

"SELECT lastname, date_first_employed, annual_salary FROM employees WH
+ERE firstname = $qfirstname,                     
SELECT * FROM employee_contacts WHERE contact_id = $qcontactid")