Select Code to Download

# This code assumes that you've already initialized a
# database handle, $dbh, and your string of data is in
...
  my @fields = split '\|', $record;
  $sth->execute(@fields);
}