use DBI; use strict; my $DNS = shift; my $dbh = DBI->connect($DNS);