Fellow Monks, I have searched high and low, brushed the dust off of my copy of "Programming the Perl DBI", and even ventured into the confines of Super Search. Unfortunately, all of my searching has been for naught, as my question remains unanswered. Either my eyes are failing me in my dotage or...Well, I certainly doubt that I'm the first person to ever want this question answered. Perhaps I'm just using the wrong search terms. I have a web site that takes customer input (name, address, email, etc.) and tosses the information into a simple database table. A simplified version of this table looks like:

CUSTOMER_INFORMATION
--------------------
id  (auto-incrementing sequence, not null)
first_name
last_name
address_1
address_2
city
state
country
postal_code
...etc...
[download]

After validating and un-tainting user input, I use the DBI to insert the information into my Postgres table like this:

  $dbh = DBI->connect($dsn, $user, $pass,
                      { RaiseError => 1, PrintError => 1, AutoCommit =
+> 1 });

  $sql = $dbh->prepare_cached('
INSERT INTO Customer_Information (
  First_Name, Last_Name, Address_1, Address_2, City, State, 
  Postal_Code
) VALUES (
  ?, ?, ?, ?, ?, ?, ?);
');

  $sql->execute($FName, $LName, $Address1, $Address2, $City, $State,
                $PostalCode);
[download]

This code works (well, ok...The real code that I'm executing in my real script works. There might be some translation errors from script to PerlMonks in what's above.) What I'd like to know is the value of the "ID" column for the row that was just inserted. I have done this in other scripts by using what feels to me like a hack:

select max(id) from customer_information where first_name = $FName and
+ last_name = $LName;
[download]

Store the result of that into a variable, and voila, I have the ID I'm looking for. I need this ID to insert as a foreign key into another table immediately after this insert is run. Is there a better way to do this? Thanks kindly.