Let me get this straight, you're asking, if it is possible to dynamically a "DSN"? Sure you can, alls a DSN is is a string, and you can "dynamically" create strings in perl.

DBI

adding DSN to a machine

DSN Wrapper for Secure DBI Passwords

Centralized DSN Switch Script (MySQL)

update: straight from the DBI docs ($data_source eq $dsn):

Examples of $data_source values are:

  dbi:DriverName:database_name
  dbi:DriverName:database_name@hostname:port
  dbi:DriverName:database=database_name;host=hostname;port=port
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"