Select Code to Download

 #!/usr/bin/perl 

use warnings;
...
$conn->do("INSERT INTO khalid(first_name,last_name,job)VALUES('$first_
+name','$last_name','$job')") ||  die "Error preparing query" . $conn-
+>errstr;    
}

 #!/usr/bin/perl 

use warnings;
...