in reply to opening a database file

Single-quoted strings don't interpolate. Use double quotes here if you want the connection request to go to focsage on behalf of medwards.

my $dbh = DBI->connect("DBI:ODBC:$server", $username, $password);

In Section Seekers of Perl Wisdom