Select Code to Download

my @dsns = (
    $dsn,
...
     undef, # password is read from file!!
     {RaiseError => 1, PrintError => 1}
);