If you're on a *nix box, you could use environment variables set in the script that runs your perl.

Then your statement would become (for example):

  my $conn = DBI->connect("DBI:Pg:dbname=$ENV{FDA_DB};", $ENV{SYB_USER
+}, $ENV{SYB_PASS}, {'RaiseError' => 1});
[download]